fmainform.dfm

来自「< Delphi网络通信协议分析与应用实现>>一书的源代码。」· DFM 代码 · 共 145 行

object MainForm: TMainForm
  Left = 180
  Top = 142
  Width = 449
  Height = 375
  Caption = 'MainForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 107
    Width = 441
    Height = 222
    Align = alClient
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 441
    Height = 107
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 80
      Width = 48
      Height = 13
      Caption = #36830#25509#25968#65306
    end
    object Edit1: TEdit
      Left = 64
      Top = 76
      Width = 121
      Height = 21
      Color = clGradientActiveCaption
      TabOrder = 0
    end
    object N1: TBitBtn
      Left = 16
      Top = 26
      Width = 75
      Height = 25
      Caption = #21551#21160
      TabOrder = 1
      OnClick = N1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
        70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
        70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
        70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
    end
    object N2: TBitBtn
      Left = 112
      Top = 26
      Width = 75
      Height = 25
      Caption = #20572#27490
      TabOrder = 2
      OnClick = N2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
        70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
        70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
        70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
    end
  end
  object MainMenu1: TMainMenu
    Left = 216
    Top = 36
    object N11: TMenuItem
      Caption = #25991#20214
      object N5: TMenuItem
        Caption = #36864#20986
        OnClick = N5Click
      end
    end
    object N3: TMenuItem
      Caption = #35774#32622
      object N4: TMenuItem
        Caption = #36523#20221#39564#35777
        OnClick = N4Click
      end
    end
  end
  object ProxySerSkt1: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnListen = ProxySerSkt1Listen
    OnClientConnect = ProxySerSkt1ClientConnect
    OnClientDisconnect = ProxySerSkt1ClientDisconnect
    OnClientRead = ProxySerSkt1ClientRead
    OnClientError = ProxySerSkt1ClientError
    Left = 180
    Top = 34
  end
  object ProxyCltSkt1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ProxyCltSkt1Connect
    OnDisconnect = ProxyCltSkt1Disconnect
    OnRead = ProxyCltSkt1Read
    OnWrite = ProxyCltSkt1Write
    OnError = ProxyCltSkt1Error
    Left = 140
    Top = 42
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 54
    Top = 92
  end
end