chatmain.xfm

Delphi7基础编程,本人的入门教材

object Form1: TForm1
  Left = 235
  Top = 169
  Width = 716
  Height = 376
  VertScrollBar.Range = 169
  ActiveControl = memoRecv
  Caption = #31616#21333#32842#22825#31243#24207
  Color = clButton
  Font.Color = clText
  Font.Height = 17
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  ParentFont = False
  WindowState = wsMaximized
  OnCreate = btnActivateServerClick
  PixelsPerInch = 96
  TextHeight = 20
  TextWidth = 8
  object memoRecv: TMemo
    Left = 0
    Top = 61
    Width = 716
    Height = 207
    Align = alClient
    ReadOnly = True
    ScrollBars = ssAutoVertical
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 268
    Width = 716
    Height = 108
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object memoSend: TMemo
      Left = 0
      Top = 0
      Width = 616
      Height = 108
      Align = alClient
      ScrollBars = ssAutoVertical
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 616
      Top = 0
      Width = 100
      Height = 108
      Align = alRight
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object btnSend: TButton
        Left = 1
        Top = 1
        Width = 96
        Height = 104
        Caption = #21457#36865
        TabOrder = 0
        OnClick = btnSendClick
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 716
    Height = 61
    Align = alTop
    TabOrder = 2
    object Label1: TLabel
      Left = 10
      Top = 23
      Width = 72
      Height = 16
      Caption = #36828#31243#20027#26426#21517#65306
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      Layout = tlCenter
    end
    object Label2: TLabel
      Left = 224
      Top = 23
      Width = 75
      Height = 16
      Caption = #36828#31243#20027#26426#31471#21475':'
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      Layout = tlCenter
    end
    object Label3: TLabel
      Left = 378
      Top = 23
      Width = 75
      Height = 16
      Caption = #26412#22320#20027#26426#31471#21475':'
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      Layout = tlCenter
    end
    object editRemoteHost: TEdit
      Left = 80
      Top = 19
      Width = 137
      Height = 24
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      MaxLength = 32767
      ParentFont = False
      TabOrder = 0
      Text = 'localhost'
    end
    object editRemotePort: TEdit
      Left = 309
      Top = 19
      Width = 60
      Height = 24
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      MaxLength = 32767
      ParentFont = False
      TabOrder = 1
      Text = '4000'
    end
    object editLocalPort: TEdit
      Left = 478
      Top = 19
      Width = 52
      Height = 24
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      MaxLength = 32767
      ParentFont = False
      TabOrder = 2
      Text = '4000'
    end
    object btnActivateServer: TButton
      Left = 546
      Top = 17
      Width = 69
      Height = 27
      Caption = #28608#27963
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 40
      ParentFont = False
      TabOrder = 3
      OnClick = btnActivateServerClick
    end
  end
  object TcpClient1: TTcpClient
    Left = 640
    Top = 18
  end
  object TcpServer1: TTcpServer
    OnAccept = TcpServer1Accept
    Left = 672
    Top = 18
  end
end