home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 200
- Top = 108
- Width = 435
- Height = 315
- Caption = 'Msg Demo'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 184
- Width = 427
- Height = 85
- Align = alBottom
- BevelInner = bvLowered
- BevelOuter = bvLowered
- TabOrder = 0
- OnResize = Panel1Resize
- object Label1: TLabel
- Left = 8
- Top = 12
- Width = 59
- Height = 13
- Caption = 'Your Name: '
- end
- object Label2: TLabel
- Left = 200
- Top = 12
- Width = 28
- Height = 13
- Caption = 'Host: '
- end
- object Label3: TLabel
- Left = 13
- Top = 34
- Width = 211
- Height = 13
- Caption = 'Type your message here and press [ENTER]'
- end
- object Edit1: TEdit
- Left = 8
- Top = 50
- Width = 266
- Height = 21
- TabOrder = 0
- OnKeyPress = Edit1KeyPress
- end
- object Edit2: TEdit
- Left = 67
- Top = 8
- Width = 121
- Height = 21
- TabOrder = 1
- Text = 'NetMasters'
- end
- object Edit3: TEdit
- Left = 232
- Top = 8
- Width = 121
- Height = 21
- TabOrder = 2
- Text = '127.0.0.1'
- end
- end
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 427
- Height = 184
- Align = alClient
- TabOrder = 1
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 269
- Width = 427
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object NMMsg1: TNMMsg
- Port = 6711
- ReportLevel = 0
- OnDisconnect = NMMsg1Disconnect
- OnConnect = NMMsg1Connect
- OnInvalidHost = NMMsg1InvalidHost
- OnHostResolved = NMMsg1HostResolved
- OnStatus = NMMsg1Status
- OnConnectionFailed = NMMsg1ConnectionFailed
- FromName = 'Netmasters'
- OnMessageSent = NMMsg1MessageSent
- Left = 312
- Top = 232
- end
- object NMMSGServ1: TNMMSGServ
- Port = 6711
- ReportLevel = 0
- OnStatus = NMMSGServ1Status
- OnClientContact = NMMSGServ1ClientContact
- OnMSG = NMMSGServ1MSG
- Left = 344
- Top = 232
- end
- object ClientSocket1: TClientSocket
- Active = False
- ClientType = ctNonBlocking
- Port = 0
- Left = 384
- Top = 208
- end
- end
-