unit4.dfm

自己不会写

object Form4: TForm4
  Left = 308
  Top = 54
  BorderStyle = bsNone
  Caption = #26381#21153#22120#31471#37197#32622#31243#24207
  ClientHeight = 191
  ClientWidth = 195
  Color = clFuchsia
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object gb: TGroupBox
    Left = 4
    Top = 8
    Width = 185
    Height = 141
    Caption = #22522#26412#20449#24687#37197#32622
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object l1: TLabel
      Left = 8
      Top = 24
      Width = 52
      Height = 13
      Caption = #20320#30340'IP'#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object l2: TLabel
      Left = 8
      Top = 54
      Width = 53
      Height = 13
      Caption = #31471#21475#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object l3: TLabel
      Left = 8
      Top = 84
      Width = 66
      Height = 13
      Caption = #36830#25509#23494#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object e1: TEdit
      Left = 76
      Top = 20
      Width = 100
      Height = 19
      Cursor = crHandPoint
      Hint = #35774#32622#20320#33258#24049#30340'IP'#65292#20197#20415#23545#26041#33258#21160#36830#25509#20320#65281
      Color = clInfoBk
      Ctl3D = False
      DragCursor = crHandPoint
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxLength = 15
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Text = '127.0.0.1'
      OnKeyPress = e1KeyPress
    end
    object e3: TEdit
      Left = 76
      Top = 80
      Width = 77
      Height = 19
      Cursor = crHandPoint
      Hint = #35774#32622#36830#25509#30340#23494#30721#65288#22312#36830#25509#26102#24517#39035#36755#20837#65281#65289
      Color = clInfoBk
      Ctl3D = False
      DragCursor = crHandPoint
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxLength = 10
      ParentCtl3D = False
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 2
    end
    object e2: TComboBox
      Tag = 1
      Left = 76
      Top = 49
      Width = 77
      Height = 21
      Cursor = crHandPoint
      Hint = #35774#32622#36830#25509#30340#31471#21475#21495
      Color = clInfoBk
      DragCursor = crHandPoint
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 13
      MaxLength = 5
      ParentFont = False
      TabOrder = 1
      Text = '7892'
      OnKeyPress = e2KeyPress
      Items.Strings = (
        '7892'
        '9999'
        '2222')
    end
    object B2: TButton
      Left = 56
      Top = 108
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 3
      OnClick = B2Click
    end
  end
  object B1: TBitBtn
    Left = 60
    Top = 160
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Caption = #29983#25104' ^-'#65290
    DragCursor = crHandPoint
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = B1Click
  end
  object T1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = T1Timer
    Left = 12
    Top = 148
  end
end