clientunit.~xfm

来自「一个简单的linux下的客户端」· ~XFM 代码 · 共 81 行

object Form1: TForm1
  Left = 192
  Top = 136
  Width = 696
  Height = 480
  HorzScrollBar.Range = 491
  VertScrollBar.Range = 369
  Caption = 'Form1'
  Color = clBackground
  PixelsPerInch = 75
  TextHeight = 15
  TextWidth = 7
  object edtHost: TEdit
    Left = 168
    Top = 56
    Width = 233
    Height = 23
    TabOrder = 0
    Text = '127.0.0.1'
  end
  object edtPort: TEdit
    Left = 160
    Top = 104
    Width = 241
    Height = 23
    TabOrder = 1
    Text = '6666'
  end
  object Memo1: TMemo
    Left = 104
    Top = 168
    Width = 233
    Height = 201
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
  end
  object Button1: TButton
    Left = 400
    Top = 168
    Width = 75
    Height = 25
    Caption = 'Send'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 416
    Top = 232
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 4
    OnClick = Button2Click
  end
  object edtData: TEdit
    Left = 160
    Top = 136
    Width = 225
    Height = 23
    TabOrder = 5
    Text = 'edtData'
  end
  object IdTCPClient: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 0
    OnDisconnected = IdTCPClientDisconnected
    OnWork = IdTCPClientWork
    OnWorkBegin = IdTCPClientWorkBegin
    OnWorkEnd = IdTCPClientWorkEnd
    OnConnected = IdTCPClientConnected
    Port = 0
    Left = 88
    Top = 48
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 104
    Top = 112
  end
end