clientmain.dfm

来自「基于socket的文件传输」· DFM 代码 · 共 134 行

object FmMain: TFmMain
  Left = 299
  Top = 282
  Width = 680
  Height = 434
  Caption = #23436#25104#31471#21475#23458#26381#31471
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object pnl1: TPanel
    Left = 0
    Top = 0
    Width = 672
    Height = 37
    Align = alTop
    TabOrder = 0
    object lbl1: TLabel
      Left = 16
      Top = 13
      Width = 36
      Height = 13
      Caption = #26381#21153#22120
    end
    object lbl2: TLabel
      Left = 183
      Top = 13
      Width = 24
      Height = 13
      Caption = #31471#21475
    end
    object lbl3: TLabel
      Left = 360
      Top = 13
      Width = 48
      Height = 13
      Caption = #36830#25509#20010#25968
    end
    object edtServer: TEdit
      Left = 56
      Top = 11
      Width = 121
      Height = 21
      TabOrder = 0
      Text = '172.17.0.98'
    end
    object edtPort: TEdit
      Left = 213
      Top = 11
      Width = 121
      Height = 21
      TabOrder = 1
      Text = '8008'
    end
    object btnConnect: TButton
      Left = 509
      Top = 6
      Width = 75
      Height = 23
      Caption = 'Connect'
      TabOrder = 3
      OnClick = btnConnectClick
    end
    object btnDisConnect: TButton
      Left = 589
      Top = 6
      Width = 75
      Height = 23
      Caption = 'DisConnect'
      Enabled = False
      TabOrder = 4
      OnClick = btnDisConnectClick
    end
    object seCount: TSpinEdit
      Left = 412
      Top = 8
      Width = 89
      Height = 22
      MaxValue = 5000
      MinValue = 1
      TabOrder = 2
      Value = 100
    end
  end
  object pnl2: TPanel
    Left = 0
    Top = 259
    Width = 672
    Height = 30
    Align = alBottom
    TabOrder = 1
    DesignSize = (
      672
      30)
    object btnSend: TButton
      Left = 586
      Top = 4
      Width = 75
      Height = 23
      Anchors = [akTop, akRight]
      Caption = 'Send'
      TabOrder = 0
      OnClick = btnSendClick
    end
  end
  object mmoSend: TMemo
    Left = 0
    Top = 37
    Width = 672
    Height = 222
    Align = alClient
    Lines.Strings = (
      #23458#26381#31471#21457#36865#27979#35797#25968#25454)
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object mmoRev: TMemo
    Left = 0
    Top = 289
    Width = 672
    Height = 118
    Align = alBottom
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 3
  end
end