comport1.dfm

Delphi采用MSComm控件开发串口测试工具,在Windows+Delphi7编译通过

object COM1Dlg: TCOM1Dlg
  Left = 348
  Top = 228
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Setup'
  ClientHeight = 214
  ClientWidth = 213
  Color = clBtnFace
  ParentFont = True
  FormStyle = fsStayOnTop
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object OKBtn: TButton
    Left = 47
    Top = 180
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 0
    OnClick = OKBtnClick
  end
  object CancelBtn: TButton
    Left = 127
    Top = 180
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 1
    OnClick = CancelBtnClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 193
    Height = 161
    Caption = 'Setting'
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 19
      Height = 13
      Caption = 'Port'
    end
    object Label2: TLabel
      Left = 8
      Top = 40
      Width = 51
      Height = 13
      Caption = 'Baud rates'
    end
    object Label3: TLabel
      Left = 8
      Top = 64
      Width = 42
      Height = 13
      Caption = 'Data bits'
    end
    object Label4: TLabel
      Left = 8
      Top = 88
      Width = 41
      Height = 13
      Caption = 'Stop bits'
    end
    object Label5: TLabel
      Left = 8
      Top = 112
      Width = 26
      Height = 13
      Caption = 'Parity'
    end
    object Label6: TLabel
      Left = 8
      Top = 136
      Width = 58
      Height = 13
      Caption = 'Flow Control'
    end
    object Port: TComboBox
      Left = 64
      Top = 16
      Width = 113
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'COM1'
    end
    object Baud: TComboBox
      Left = 64
      Top = 40
      Width = 113
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = '9600'
      Items.Strings = (
        '2400'
        '4800'
        '9600'
        '14400'
        '19200'
        '38400'
        '56000'
        '57600'
        '115200')
    end
    object Databits: TComboBox
      Left = 64
      Top = 64
      Width = 113
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = '8'
    end
    object Stopbits: TComboBox
      Left = 64
      Top = 88
      Width = 113
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = '1'
    end
    object Parity: TComboBox
      Left = 64
      Top = 112
      Width = 113
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = 'N'
    end
    object Flowcontrol: TComboBox
      Left = 64
      Top = 136
      Width = 113
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Text = 'ComNone'
      Items.Strings = (
        'ComNone'
        'comXOnXOff'
        'ComRTS'
        'comRtsOnXOff')
    end
  end
end