comset.dfm

用BCB写的spcomm的一个例子

object SetCom: TSetCom
  Left = 470
  Top = 277
  Width = 217
  Height = 208
  BorderIcons = []
  Caption = #35774#32622#20018#21475#36890#20449#21442#25968
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 48
    Height = 13
    Caption = #20018#21475#21495#65306
  end
  object Label2: TLabel
    Left = 112
    Top = 16
    Width = 48
    Height = 13
    Caption = #27874#29305#29575#65306
  end
  object Label3: TLabel
    Left = 16
    Top = 64
    Width = 48
    Height = 13
    Caption = #25968#25454#20301#65306
  end
  object Label4: TLabel
    Left = 112
    Top = 64
    Width = 48
    Height = 13
    Caption = #20572#27490#20301#65306
  end
  object ComName: TComboBox
    Left = 16
    Top = 32
    Width = 81
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 0
    Text = 'COM1'
    Items.Strings = (
      'COM1'
      'COM2'
      'COM3'
      'COM4')
  end
  object BaudRate: TComboBox
    Left = 112
    Top = 32
    Width = 81
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 1
    TabOrder = 1
    Text = '9600'
    Items.Strings = (
      '4800'
      '9600'
      '19200'
      '38400')
  end
  object ByteSize: TComboBox
    Left = 16
    Top = 80
    Width = 81
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 3
    TabOrder = 2
    Text = '8'#20301
    Items.Strings = (
      '5'#20301
      '6'#20301
      '7'#20301
      '8'#20301)
  end
  object StopBits: TComboBox
    Left = 112
    Top = 80
    Width = 81
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 3
    Text = '1'#20301
    Items.Strings = (
      '1'#20301
      '1.5'#20301
      '2'#20301)
  end
  object Button1: TButton
    Left = 16
    Top = 136
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 120
    Top = 136
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 5
    OnClick = Button2Click
  end
end