unit1.dfm

一个串口测试程序

object Form1: TForm1
  Left = 201
  Top = 144
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20018#21475#31243#24207
  ClientHeight = 407
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ComLed1: TComLed
    Left = 24
    Top = 24
    Width = 25
    Height = 25
    ComPort = ComPort1
    LedSignal = lsConn
    Kind = lkRedLight
  end
  object ComLed2: TComLed
    Left = 0
    Top = 24
    Width = 25
    Height = 25
    ComPort = ComPort1
    LedSignal = lsConn
    Kind = lkRedLight
  end
  object ComLed3: TComLed
    Left = 48
    Top = 24
    Width = 25
    Height = 25
    ComPort = ComPort1
    LedSignal = lsConn
    Kind = lkRedLight
  end
  object Label2: TLabel
    Left = 568
    Top = 8
    Width = 121
    Height = 41
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsItalic]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 408
    Top = 48
    Width = 89
    Height = 33
    AutoSize = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsItalic]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 304
    Top = 48
    Width = 89
    Height = 33
    AutoSize = False
    Caption = #25509#25910#20010#25968#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Memo1: TMemo
    Left = 0
    Top = 104
    Width = 345
    Height = 337
    BevelKind = bkTile
    BorderStyle = bsNone
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Memo2: TMemo
    Left = 360
    Top = 104
    Width = 329
    Height = 329
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object Edit1: TEdit
    Left = 0
    Top = 56
    Width = 177
    Height = 32
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    TabOrder = 2
  end
  object Button1: TButton
    Left = 208
    Top = 56
    Width = 75
    Height = 25
    Caption = #21457#36865
    TabOrder = 3
    OnClick = Button1Click
  end
  object MainMenu1: TMainMenu
    Left = 224
    Top = 208
    object N1: TMenuItem
      Caption = #20018#21475
      object N2: TMenuItem
        Caption = #25171#24320
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #20851#38381
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = #35774#32622
        OnClick = N4Click
      end
    end
    object N5: TMenuItem
      Caption = #21382#21490#25991#20214
      object N6: TMenuItem
        Caption = #25171#24320
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = #28165#31354
        OnClick = N7Click
      end
    end
    object N8: TMenuItem
      Caption = #28165#31354#26174#31034
      OnClick = N8Click
    end
    object N9: TMenuItem
      Caption = #23454#26102#26354#32447
      OnClick = N9Click
    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 = 216
    Top = 160
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 416
    Top = 176
  end
end