pfm_main.dfm

< Delphi网络通信协议分析与应用实现>>一书的源代码。

object main: Tmain
  Left = 182
  Top = 198
  Width = 629
  Height = 446
  Caption = 'MODEM'#36890#35759#31243#24207
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 233
    Top = 0
    Width = 388
    Height = 419
    Align = alClient
    Color = clBlack
    Font.Charset = GB2312_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 233
    Height = 419
    Align = alLeft
    TabOrder = 1
    object BBtnCltfile2: TBitBtn
      Left = 28
      Top = 116
      Width = 177
      Height = 33
      Caption = #23458#25143#31471#25991#20214#20256#36755#21518#22788#29702
      TabOrder = 5
      OnClick = BBtnCltfile2Click
    end
    object BBtnCltfile: TBitBtn
      Left = 28
      Top = 68
      Width = 177
      Height = 33
      Caption = #23458#25143#31471#25991#20214#20256#36755#21069#22788#29702
      TabOrder = 3
      OnClick = BBtnCltfileClick
    end
    object BBtnClient: TBitBtn
      Left = 28
      Top = 20
      Width = 177
      Height = 33
      Caption = 'MODEM'#25991#20214#20256#36755#23458#25143#31471
      TabOrder = 0
      OnClick = BBtnClientClick
    end
    object BBtnServer: TBitBtn
      Left = 28
      Top = 28
      Width = 177
      Height = 33
      Caption = 'MODEM'#25991#20214#20256#36755#26381#21153#22120
      TabOrder = 1
      OnClick = BBtnServerClick
    end
    object BBtnSvrfile: TBitBtn
      Left = 28
      Top = 76
      Width = 177
      Height = 33
      Caption = #26381#21153#22120#25991#20214#20256#36755#21069#22788#29702
      TabOrder = 2
      OnClick = BBtnSvrfileClick
    end
    object BBtnSvrfile2: TBitBtn
      Left = 28
      Top = 124
      Width = 177
      Height = 33
      Caption = #26381#21153#22120#25991#20214#20256#36755#21518#22788#29702
      TabOrder = 4
      OnClick = BBtnSvrfile2Click
    end
    object Memo2: TMemo
      Left = 2
      Top = 204
      Width = 229
      Height = 213
      Align = alBottom
      BorderStyle = bsNone
      Color = clBackground
      Font.Charset = GB2312_CHARSET
      Font.Color = clAqua
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      Lines.Strings = (
        #27880#24847#65306
        '1.'#22312#36890#35759#21069#35831#20808#36827#34892#25991#20214#20256#36755#21069
        #22788#29702
        '2.'#22312#36890#35759#21518#35831#36827#34892#25991#20214#20256#36755#21518#22788
        #29702)
      ParentFont = False
      TabOrder = 6
    end
  end
  object Table1: TTable
    Left = 276
    Top = 32
  end
end