mainform.~dfm

串口接收

object Form1: TForm1
  Left = 205
  Top = 114
  BorderStyle = bsSingle
  Caption = #20142#24230#35774#32622
  ClientHeight = 438
  ClientWidth = 619
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 24
    Top = 24
    Width = 129
    Height = 145
    Caption = #21021#22987#21270
    TabOrder = 0
    object Label4: TLabel
      Left = 8
      Top = 24
      Width = 39
      Height = 13
      Caption = #31471#21475' '#65306
    end
    object Label5: TLabel
      Left = 8
      Top = 56
      Width = 48
      Height = 13
      Caption = #27874#29305#29575#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 84
      Width = 63
      Height = 13
      Caption = #20018#21475#29366#24577':    '
    end
    object Label6: TLabel
      Left = 72
      Top = 84
      Width = 42
      Height = 13
      Caption = #24050#20851#38381'  '
    end
    object ComLed1: TComLed
      Left = 8
      Top = 112
      Width = 25
      Height = 25
      ComPort = ComPort1
      LedSignal = lsConn
      Kind = lkRedLight
      OnChange = ComLed1Change
    end
    object ComComboBox1: TComComboBox
      Left = 64
      Top = 53
      Width = 57
      Height = 21
      ComPort = ComPort1
      ComProperty = cpBaudRate
      Text = '9600'
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ItemIndex = 7
      TabOrder = 0
      OnChange = ComComboBox1Change
    end
    object ComComboBox2: TComComboBox
      Left = 64
      Top = 18
      Width = 57
      Height = 21
      ComPort = ComPort1
      ComProperty = cpPort
      Text = 'COM1'
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 1
      OnChange = ComComboBox2Change
    end
    object Button1: TButton
      Left = 40
      Top = 112
      Width = 75
      Height = 25
      Caption = #25171#24320#20018#21475
      TabOrder = 2
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 24
    Top = 184
    Width = 129
    Height = 105
    Caption = #29992#25143#35774#32622
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 64
      Width = 36
      Height = 13
      Caption = #23494#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 9
      Top = 24
      Width = 75
      Height = 13
      Caption = #26368#22823#20142#24230#20540#65306' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object bsSkinEdit1: TbsSkinEdit
      Left = 8
      Top = 40
      Width = 105
      Height = 20
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      UseSkinFont = True
      DefaultWidth = 0
      DefaultHeight = 20
      ButtonMode = False
      SkinDataName = 'edit'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = 14
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      MaxLength = 3
      ParentFont = False
      TabOrder = 0
      OnExit = bsSkinEdit1Exit
    end
    object bsSkinPasswordEdit1: TbsSkinPasswordEdit
      Left = 8
      Top = 80
      Width = 105
      Height = 21
      Cursor = crIBeam
      TabOrder = 1
      SkinDataName = 'edit'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 12
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 21
      UseSkinFont = True
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      PasswordKind = pkRoundRect
      OnKeyDown = bsSkinPasswordEdit1KeyDown
    end
  end
  object GroupBox3: TGroupBox
    Left = 24
    Top = 304
    Width = 129
    Height = 113
    Caption = #21457#36865#21629#20196' '
    TabOrder = 2
    object Button2: TButton
      Left = 10
      Top = 32
      Width = 97
      Height = 25
      Caption = #26368#22823#20142#24230#20540
      Enabled = False
      TabOrder = 0
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 10
      Top = 72
      Width = 97
      Height = 25
      Caption = #26368#23567#20142#24230#20540
      Enabled = False
      TabOrder = 1
      OnClick = Button3Click
    end
  end
  object GroupBox4: TGroupBox
    Left = 184
    Top = 32
    Width = 425
    Height = 385
    Caption = #25509#25910#21306#65306
    TabOrder = 3
    object Memo1: TMemo
      Left = 2
      Top = 16
      Width = 417
      Height = 329
      BorderStyle = bsNone
      Ctl3D = True
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Lines.Strings = (
        '')
      ParentCtl3D = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object GroupBox5: TGroupBox
      Left = 0
      Top = 344
      Width = 425
      Height = 41
      TabOrder = 1
      object CheckBox1: TCheckBox
        Left = 16
        Top = 16
        Width = 97
        Height = 17
        Caption = '16'#36827#21046#26174#31034
        Checked = True
        State = cbChecked
        TabOrder = 0
      end
      object Button4: TButton
        Left = 312
        Top = 8
        Width = 89
        Height = 25
        Caption = #28165#31354#25509#25910#21306
        TabOrder = 1
        OnClick = Button4Click
      end
    end
  end
  object ComPort1: TComPort
    BaudRate = br9600
    Port = 'COM1'
    Parity.Bits = prNone
    StopBits = sbOneStopBit
    DataBits = dbEight
    Events = [evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD, evRx80Full]
    FlowControl.OutCTSFlow = False
    FlowControl.OutDSRFlow = False
    FlowControl.ControlDTR = dtrDisable
    FlowControl.ControlRTS = rtsDisable
    FlowControl.XonXoffOut = False
    FlowControl.XonXoffIn = False
    OnRxChar = ComPort1RxChar
    Left = 184
  end
end