unit1.dfm

一个串口通信程序,在上海某展馆中控制模型运动的实例.

object Form1: TForm1
  Left = 400
  Top = 292
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #24310#21326#22810#23186#20307#34900#25509#31243#24207
  ClientHeight = 372
  ClientWidth = 410
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 393
    Height = 153
    Caption = #25509#25910#65306
    TabOrder = 0
    object Image1: TImage
      Left = 136
      Top = 24
      Width = 105
      Height = 105
      Picture.Data = {
        055449636F6E0000010001002020040000000000E80200001600000028000000
        2000000040000000010004000000000000020000000000000000000000000000
        0000000000000000000080000080000000808000800000008000800080800000
        80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
        FFFFFF0000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000007777777000000000000000000000000BBBBBBBBB7000000000
        88888F000000BBBBBBBBBB700000000888888F100000BBBB000BBB7000000018
        111998100000BBB00000BB700000097788888881000033300000BB7000000997
        78888881033388822200BB700000099977888881788888888F20BB7000000991
        11111181778888888820BBB70000099999778881A72222228820BBBB77730991
        11111181AAA778888820BBB33333099999997781AA33222288200B3333330991
        11111171AAAAA778883000003331099999999971AA3333327830000003310999
        99999991AAAAAAAA773000000331009999999990AAAAAAAAA730000003310000
        03300000AAAAAAAAAA000000033000000330000000A3333AA300000003330000
        3330000000AAAAAAA00000000333300033300000000000000000000003333333
        3330000000000000000000000033333333300000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC07FFFF
        F801FF03F001FE01F0E1FC01F1F1F800F1F1F8008031F8000011F8000010F800
        001008000010080000180800001F0800001F8800001F8C01001F8F8F003F8F8F
        C03F870FC07F800FFFFF800FFFFFC01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF}
      Visible = False
    end
    object Memo1: TMemo
      Left = 8
      Top = 16
      Width = 377
      Height = 129
      ImeName = #25340#38899#21152#21152#36755#20837#27861
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 168
    Width = 393
    Height = 49
    Caption = #21457#36865#65306
    TabOrder = 1
    object Edit1: TEdit
      Left = 8
      Top = 16
      Width = 329
      Height = 21
      ImeName = #25340#38899#21152#21152#36755#20837#27861
      MaxLength = 1000
      TabOrder = 0
      OnClick = Edit1Click
    end
    object Button1: TButton
      Left = 344
      Top = 16
      Width = 43
      Height = 21
      Caption = #21457#36865
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 224
    Width = 393
    Height = 49
    Caption = #39044#23450#21457#36865#65306
    TabOrder = 2
    object Label6: TLabel
      Left = 8
      Top = 20
      Width = 153
      Height = 13
      AutoSize = False
      Caption = #35843#29992#26412#31243#24207#21629#20196#19982#21442#25968#65306
    end
    object ComboBox2: TComboBox
      Left = 152
      Top = 16
      Width = 185
      Height = 21
      Style = csDropDownList
      ImeName = #25340#38899#21152#21152#36755#20837#27861
      ItemHeight = 13
      TabOrder = 0
    end
    object Button2: TButton
      Left = 344
      Top = 16
      Width = 43
      Height = 21
      Caption = #21457#36865
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object GroupBox4: TGroupBox
    Left = 8
    Top = 280
    Width = 393
    Height = 41
    TabOrder = 3
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 36
      Height = 13
      Caption = #20018#21475#65306
    end
    object ComboBox1: TComboBox
      Left = 56
      Top = 12
      Width = 145
      Height = 21
      Style = csDropDownList
      ImeName = #25340#38899#21152#21152#36755#20837#27861
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboBox1Change
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4')
    end
    object Panel1: TPanel
      Left = 272
      Top = 12
      Width = 21
      Height = 21
      BevelInner = bvRaised
      Color = clLime
      TabOrder = 1
    end
    object Button3: TButton
      Left = 304
      Top = 12
      Width = 73
      Height = 21
      Caption = #20851#38381#31471#21475
      TabOrder = 2
      OnClick = Button3Click
    end
  end
  object Button4: TButton
    Left = 240
    Top = 336
    Width = 105
    Height = 25
    Caption = #26368#23567#21270#31383#21475
    TabOrder = 4
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 56
    Top = 336
    Width = 105
    Height = 25
    Caption = #28165#31354#25509#21463#31383#21475
    TabOrder = 5
    OnClick = Button5Click
  end
  object Comm1: TComm
    CommName = 'COM1'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm1ReceiveData
    Left = 32
    Top = 32
  end
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 32
    object N1: TMenuItem
      Caption = #27979#35797#35265#38754
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #36864#20986
      OnClick = N2Click
    end
  end
end