chatmain.xfm

一个聊天窗口

object Form1: TForm1
  Left = 289
  Top = 125
  Width = 551
  Height = 520
  VertScrollBar.Range = 409
  ActiveControl = memSend
  BorderStyle = fbsSingle
  Caption = 'Net Chat'
  Color = clButton
  Position = poDesktopCenter
  OnCreate = btnActivateServerClick
  PixelsPerInch = 96
  TextHeight = 12
  TextWidth = 6
  object Panel1: TPanel
    Left = 0
    Top = 390
    Width = 551
    Height = 111
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvNone
    Font.Color = clText
    Font.Height = 12
    Font.Name = #23435#20307
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
    TabOrder = 0
    object memSend: TMemo
      Left = 3
      Top = 4
      Width = 544
      Height = 78
      ScrollBars = ssAutoVertical
      TabOrder = 0
      OnChange = memSendChange
    end
    object btnSend: TButton
      Left = 467
      Top = 86
      Width = 81
      Height = 21
      Caption = #21457#36865
      Enabled = False
      TabOrder = 1
      OnClick = btnSendClick
    end
    object ComboBox1: TComboBox
      Left = 72
      Top = 86
      Width = 289
      Height = 20
      ItemHeight = 14
      Items.Strings = (
        'aaaaaaaaaaaaaaaaaaa'
        'bbbbbbbbbbbbbbbbbbb'
        'ccccccccccccccccccc'
        'ddddddddddddddddddd'
        'eeeeeeeeeeeeeeeeeee')
      ItemIndex = 0
      TabOrder = 2
      Text = 'aaaaaaaaaaaaaaaaaaa'
      OnClick = ComboBox1Click
    end
    object Label5: TLabel
      Left = 9
      Top = 90
      Width = 56
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
      Caption = #24120#29992#30701#35821
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 551
    Height = 98
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 31
      Width = 75
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
      Caption = #36828#31243'IP'#22320#22336#65306
      Font.Color = clText
      Font.Height = 12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      Layout = tlCenter
    end
    object Label2: TLabel
      Left = 13
      Top = 54
      Width = 69
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
      Caption = #36828#31243#31471#21475#65306
      Font.Color = clText
      Font.Height = 12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      Layout = tlCenter
    end
    object Label3: TLabel
      Left = 12
      Top = 77
      Width = 71
      Height = 12
      Alignment = taRightJustify
      AutoSize = False
      Caption = #26412#22320#31471#21475#65306
      Font.Color = clText
      Font.Height = 12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      Layout = tlCenter
    end
    object edtRemoteHost: TEdit
      Left = 87
      Top = 28
      Width = 106
      Height = 20
      Font.Color = clText
      Font.Height = 12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      MaxLength = 32767
      ParentFont = False
      TabOrder = 0
      Text = '211.86.243.129'
    end
    object edtRemotePort: TEdit
      Left = 87
      Top = 51
      Width = 40
      Height = 20
      Font.Color = clText
      Font.Height = 12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      MaxLength = 32767
      ParentFont = False
      TabOrder = 1
      Text = '5000'
    end
    object edtLocalPort: TEdit
      Left = 87
      Top = 74
      Width = 40
      Height = 20
      Font.Color = clText
      Font.Height = 12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      MaxLength = 32767
      ParentFont = False
      TabOrder = 2
      Text = '5000'
    end
    object btnActivateServer: TButton
      Left = 130
      Top = 73
      Width = 50
      Height = 21
      Caption = #21464#26356
      Font.Color = clText
      Font.Height = 12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      TabOrder = 3
      OnClick = btnActivateServerClick
    end
    object Label4: TLabel
      Left = 11
      Top = 8
      Width = 72
      Height = 12
      Alignment = taRightJustify
      Caption = #32852#31995#20154#22995#21517#65306
      Font.Color = clText
      Font.Height = 12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      Layout = tlCenter
    end
    object Edit1: TEdit
      Left = 87
      Top = 5
      Width = 202
      Height = 20
      Font.Color = clText
      Font.Height = 12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      MaxLength = 32767
      ParentFont = False
      TabOrder = 8
    end
    object Button2: TButton
      Left = 200
      Top = 73
      Width = 90
      Height = 21
      Caption = #21152#20837#36890#35759#24405
      Font.Color = clText
      Font.Height = 12
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      TabOrder = 9
    end
    object DBGrid1: TDBGrid
      Left = 292
      Top = 4
      Width = 256
      Height = 91
      TabOrder = 10
      TitleFont.Color = clBlack
      TitleFont.Height = 12
      TitleFont.Name = #23435#20307
      TitleFont.Pitch = fpVariable
      TitleFont.Style = []
      TitleFont.Weight = 40
      Columns = <
        item
          Expanded = False
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#20154
          Width = 220
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 98
    Width = 551
    Height = 292
    Align = alTop
    Caption = 'Panel2'
    TabOrder = 2
    object memRecv: TMemo
      Left = 3
      Top = 4
      Width = 543
      Height = 260
      ReadOnly = True
      ScrollBars = ssAutoVertical
      TabOrder = 0
      OnChange = memRecvChange
    end
    object Button1: TButton
      Left = 467
      Top = 267
      Width = 81
      Height = 21
      Caption = #28165#31354
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 368
      Top = 267
      Width = 98
      Height = 21
      Caption = #21382#21490#36890#35759#35760#24405
      TabOrder = 2
    end
    object Button4: TButton
      Left = 268
      Top = 267
      Width = 98
      Height = 21
      Caption = #20445#23384#36890#35759#35760#24405
      Enabled = False
      TabOrder = 3
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 501
    Width = 551
    Height = 19
    Panels = <>
  end
  object TcpClient1: TTcpClient
    Left = 72
    Top = 114
  end
  object TcpServer1: TTcpServer
    OnAccept = TcpServer1Accept
    Left = 104
    Top = 114
  end
end