Delphi/CppBuilder

开发平台：
Delphi

MainFrm.dfm：源码内容
							object frmMain: TfrmMain
  Left = 120
  Top = 88
  Width = 581
  Height = 439
  Caption = #20018#21475#36890#35759#31243#24207
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object pgcMain: TPageControl
    Left = 0
    Top = 0
    Width = 573
    Height = 412
    ActivePage = TabSheet2
    Align = alClient
    TabIndex = 1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #21457#36865
      object Panel1: TPanel
        Left = 380
        Top = 0
        Width = 185
        Height = 366
        Align = alRight
        BevelOuter = bvLowered
        TabOrder = 0
        object Label5: TLabel
          Left = 8
          Top = 24
          Width = 72
          Height = 12
          Caption = #20018'  '#21475'  '#21517#65306
        end
        object Label1: TLabel
          Left = 8
          Top = 64
          Width = 72
          Height = 12
          Caption = #27874'  '#29305'  '#29575#65306
        end
        object Label2: TLabel
          Left = 8
          Top = 112
          Width = 72
          Height = 12
          Caption = #25968'  '#25454'  '#20301#65306
        end
        object Label3: TLabel
          Left = 8
          Top = 160
          Width = 72
          Height = 12
          Caption = #20572'  '#27490'  '#20301#65306
        end
        object Label4: TLabel
          Left = 8
          Top = 208
          Width = 72
          Height = 12
          Caption = #22855#20598#26657#39564#20301#65306
        end
        object btnOpenSend: TBitBtn
          Left = 52
          Top = 242
          Width = 86
          Height = 25
          Caption = #25171#24320#21457#36865#31471#21475
          TabOrder = 0
          OnClick = btnOpenSendClick
        end
        object btnSendData: TBitBtn
          Left = 52
          Top = 282
          Width = 86
          Height = 25
          Caption = #21457#36865#25968#25454
          Enabled = False
          TabOrder = 1
          OnClick = btnSendDataClick
        end
        object btnCloseSend: TBitBtn
          Left = 52
          Top = 322
          Width = 86
          Height = 25
          Caption = #20851#38381#21457#36865#31471#21475
          Enabled = False
          TabOrder = 2
          OnClick = btnCloseSendClick
        end
        object edtSendCommName: TEdit
          Left = 84
          Top = 19
          Width = 92
          Height = 20
          TabOrder = 3
        end
        object edtSendBaudRate: TEdit
          Left = 84
          Top = 59
          Width = 92
          Height = 20
          TabOrder = 4
          OnExit = edtSendBaudRateExit
        end
        object cmbSendByteSize: TComboBox
          Left = 84
          Top = 107
          Width = 92
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 5
          Items.Strings = (
            '5'
            '6'
            '7'
            '8')
        end
        object cmbSendStopBits: TComboBox
          Left = 84
          Top = 154
          Width = 92
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 6
          Items.Strings = (
            '1'
            '1.5'
            '2')
        end
        object cmbSendParity: TComboBox
          Left = 84
          Top = 204
          Width = 92
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 7
          Items.Strings = (
            'None'
            'Odd'
            'Even'
            'Mark'
            'Space')
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 380
        Height = 366
        Align = alClient
        BevelOuter = bvLowered
        TabOrder = 1
        object Panel4: TPanel
          Left = 1
          Top = 324
          Width = 378
          Height = 41
          Align = alBottom
          BevelOuter = bvLowered
          TabOrder = 0
          object Label11: TLabel
            Left = 3
            Top = 13
            Width = 60
            Height = 12
            Caption = #21457#36865#23383#31526#65306
          end
          object edtSend: TEdit
            Left = 61
            Top = 8
            Width = 315
            Height = 20
            TabOrder = 0
          end
        end
        object mmoSend: TMemo
          Left = 1
          Top = 1
          Width = 378
          Height = 323
          Align = alClient
          ReadOnly = True
          TabOrder = 1
        end
      end
      object stbSend: TStatusBar
        Left = 0
        Top = 366
        Width = 565
        Height = 19
        Panels = <
          item
            Width = 150
          end
          item
            Width = 50
          end>
        SimplePanel = False
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25509#25910
      ImageIndex = 1
      object Panel2: TPanel
        Left = 380
        Top = 0
        Width = 185
        Height = 366
        Align = alRight
        BevelOuter = bvLowered
        TabOrder = 0
        object Label6: TLabel
          Left = 8
          Top = 24
          Width = 72
          Height = 12
          Caption = #20018'  '#21475'  '#21517#65306
        end
        object Label7: TLabel
          Left = 8
          Top = 64
          Width = 72
          Height = 12
          Caption = #27874'  '#29305'  '#29575#65306
        end
        object Label8: TLabel
          Left = 8
          Top = 112
          Width = 72
          Height = 12
          Caption = #25968'  '#25454'  '#20301#65306
        end
        object Label9: TLabel
          Left = 8
          Top = 160
          Width = 72
          Height = 12
          Caption = #20572'  '#27490'  '#20301#65306
        end
        object Label10: TLabel
          Left = 8
          Top = 208
          Width = 72
          Height = 12
          Caption = #22855#20598#26657#39564#20301#65306
        end
        object btnOpenRecv: TBitBtn
          Left = 52
          Top = 242
          Width = 86
          Height = 25
          Caption = #25171#24320#25509#25910#31471#21475
          TabOrder = 0
          OnClick = btnOpenRecvClick
        end
        object btnRecvData: TBitBtn
          Left = 52
          Top = 282
          Width = 86
          Height = 25
          Caption = #25509#25910#25968#25454
          Enabled = False
          TabOrder = 1
          OnClick = btnRecvDataClick
        end
        object btnCloseRecv: TBitBtn
          Left = 52
          Top = 322
          Width = 86
          Height = 25
          Caption = #20851#38381#25509#25910#31471#21475
          Enabled = False
          TabOrder = 2
          OnClick = btnCloseRecvClick
        end
        object edtRecvCommName: TEdit
          Left = 84
          Top = 19
          Width = 92
          Height = 20
          TabOrder = 3
        end
        object edtRecvBaudRate: TEdit
          Left = 84
          Top = 59
          Width = 92
          Height = 20
          TabOrder = 4
          OnExit = edtRecvBaudRateExit
        end
        object cmbRecvByteSize: TComboBox
          Left = 84
          Top = 107
          Width = 92
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 5
          Items.Strings = (
            '5'
            '6'
            '7'
            '8')
        end
        object cmbRecvStopBits: TComboBox
          Left = 84
          Top = 154
          Width = 92
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 6
          Items.Strings = (
            '_1'
            '_1_5'
            '_2')
        end
        object cmbRecvParity: TComboBox
          Left = 84
          Top = 204
          Width = 92
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 7
          Items.Strings = (
            'None'
            'Odd'
            'Even'
            'Mark'
            'Space')
        end
      end
      object mmoRecv: TMemo
        Left = 0
        Top = 0
        Width = 380
        Height = 366
        Align = alClient
        TabOrder = 1
      end
      object stbRecv: TStatusBar
        Left = 0
        Top = 366
        Width = 565
        Height = 19
        Panels = <
          item
            Width = 150
          end
          item
            Width = 50
          end>
        SimplePanel = False
      end
    end
  end
end

						