main.dfm

Cport3.0最好的使用例子

object FrmMain: TFrmMain
  Left = 124
  Top = 119
  Width = 713
  Height = 470
  Caption = #20018#21475#35843#35797#21161#25163'Delphi'#29256'V1.0'
  Color = clMoneyGreen
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 705
    Height = 320
    Align = alClient
    ParentColor = True
    TabOrder = 0
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 178
      Height = 318
      Align = alLeft
      ParentColor = True
      TabOrder = 0
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 167
        Height = 185
        TabOrder = 0
        object Label3: TLabel
          Left = 8
          Top = 15
          Width = 24
          Height = 12
          Caption = #31471#21475
        end
        object Label4: TLabel
          Left = 8
          Top = 36
          Width = 36
          Height = 12
          Caption = #27874#29305#29575
        end
        object Label5: TLabel
          Left = 8
          Top = 58
          Width = 36
          Height = 12
          Caption = #26657#39564#20301
        end
        object Label6: TLabel
          Left = 8
          Top = 79
          Width = 36
          Height = 12
          Caption = #25968#25454#20301
        end
        object Label7: TLabel
          Left = 8
          Top = 101
          Width = 36
          Height = 12
          Caption = #20572#27490#20301
        end
        object Label8: TLabel
          Left = 8
          Top = 121
          Width = 36
          Height = 12
          Caption = #27969#25511#21046
        end
        object ComLed1: TComLed
          Left = 8
          Top = 140
          Width = 25
          Height = 25
          ComPort = ComPort
          LedSignal = lsCTS
          Kind = lkPurpleLight
        end
        object Label9: TLabel
          Left = 13
          Top = 168
          Width = 18
          Height = 12
          Caption = 'CTS'
        end
        object ComLed2: TComLed
          Left = 38
          Top = 140
          Width = 25
          Height = 25
          ComPort = ComPort
          LedSignal = lsDSR
          Kind = lkPurpleLight
        end
        object Label10: TLabel
          Left = 43
          Top = 168
          Width = 18
          Height = 12
          Caption = 'DSR'
        end
        object ComLed3: TComLed
          Left = 68
          Top = 140
          Width = 25
          Height = 25
          ComPort = ComPort
          LedSignal = lsConn
          Kind = lkPurpleLight
        end
        object Label11: TLabel
          Left = 70
          Top = 168
          Width = 24
          Height = 12
          Caption = 'Conn'
        end
        object ComComboBox1: TComComboBox
          Left = 56
          Top = 12
          Width = 97
          Height = 20
          ComPort = ComPort
          ComProperty = cpPort
          AutoApply = True
          Text = 'COM1'
          Style = csDropDownList
          DropDownCount = 18
          ItemHeight = 12
          ItemIndex = 0
          TabOrder = 0
          OnChange = ComComboBox1Change
        end
        object ComComboBox2: TComComboBox
          Left = 56
          Top = 33
          Width = 97
          Height = 20
          ComPort = ComPort
          ComProperty = cpBaudRate
          AutoApply = True
          Text = '9600'
          Style = csDropDownList
          DropDownCount = 18
          ItemHeight = 12
          ItemIndex = 7
          TabOrder = 1
          OnChange = ComComboBox1Change
        end
        object ComComboBox3: TComComboBox
          Left = 56
          Top = 54
          Width = 97
          Height = 20
          ComPort = ComPort
          ComProperty = cpParity
          AutoApply = True
          Text = 'None'
          Style = csDropDownList
          DropDownCount = 18
          ItemHeight = 12
          ItemIndex = 0
          TabOrder = 2
          OnChange = ComComboBox1Change
        end
        object ComComboBox4: TComComboBox
          Left = 56
          Top = 75
          Width = 97
          Height = 20
          ComPort = ComPort
          ComProperty = cpDataBits
          AutoApply = True
          Text = '8'
          Style = csDropDownList
          DropDownCount = 18
          ItemHeight = 12
          ItemIndex = 3
          TabOrder = 3
          OnChange = ComComboBox1Change
        end
        object ComComboBox5: TComComboBox
          Left = 56
          Top = 96
          Width = 97
          Height = 20
          ComPort = ComPort
          ComProperty = cpStopBits
          AutoApply = True
          Text = '1'
          Style = csDropDownList
          DropDownCount = 18
          ItemHeight = 12
          ItemIndex = 0
          TabOrder = 4
          OnChange = ComComboBox1Change
        end
        object ComComboBox6: TComComboBox
          Left = 56
          Top = 117
          Width = 97
          Height = 20
          ComPort = ComPort
          ComProperty = cpFlowControl
          AutoApply = True
          Text = 'None'
          Style = csDropDownList
          DropDownCount = 18
          ItemHeight = 12
          ItemIndex = 2
          TabOrder = 5
          OnChange = ComComboBox1Change
        end
        object btnSwitch: TButton
          Left = 101
          Top = 143
          Width = 62
          Height = 34
          Caption = #25171#24320#20018#21475
          TabOrder = 6
          OnClick = btnSwitchClick
        end
      end
      object Panel5: TPanel
        Left = 125
        Top = 197
        Width = 49
        Height = 21
        BevelInner = bvLowered
        Caption = #25509#25910#21306
        ParentColor = True
        TabOrder = 1
      end
      object Button6: TButton
        Left = 8
        Top = 197
        Width = 81
        Height = 21
        Caption = #28165#31354#25509#25910#21306
        TabOrder = 2
        OnClick = Button6Click
      end
      object cbRecHex: TCheckBox
        Left = 8
        Top = 255
        Width = 97
        Height = 17
        Caption = #21313#20845#36827#21046#26174#31034
        TabOrder = 3
      end
      object cbAutoClean: TCheckBox
        Left = 8
        Top = 240
        Width = 97
        Height = 17
        Caption = #33258#21160#28165#31354
        Checked = True
        State = cbChecked
        TabOrder = 4
      end
      object btnStopShow: TButton
        Left = 8
        Top = 218
        Width = 81
        Height = 21