main.dfm

Delphi 7 串口通讯程序

object Fmain: TFmain
  Left = 197
  Top = 134
  Width = 695
  Height = 478
  Caption = 'Fmain'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object ReceiveText: TRichEdit
    Left = 0
    Top = 45
    Width = 687
    Height = 368
    Align = alClient
    Color = clMenuText
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 687
    Height = 45
    Align = alTop
    AutoSize = True
    TabOrder = 1
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 217
      Height = 37
      AutoSize = True
      ButtonHeight = 35
      ButtonWidth = 31
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Action = Aclear
      end
      object ToolButton2: TToolButton
        Left = 31
        Top = 0
        Action = Asetcom
      end
      object ToolButton4: TToolButton
        Left = 62
        Top = 0
        Action = AReceive
      end
      object ToolButton5: TToolButton
        Left = 93
        Top = 0
        Action = Astop
      end
      object ToolButton6: TToolButton
        Left = 124
        Top = 0
        Action = Afont
      end
      object ToolButton7: TToolButton
        Left = 155
        Top = 0
        Action = Acolor
      end
      object ToolButton3: TToolButton
        Left = 186
        Top = 0
        Action = Aclose
      end
    end
  end
  object Statusbar: TStatusBar
    Left = 0
    Top = 413
    Width = 687
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Comm1: TComm
    CommName = 'COM2'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = False
    Inx_XonXoffFlow = False
    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 = 649
    Top = 8
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    OwnerDraw = True
    Left = 96
    Top = 184
    object file1: TMenuItem
      Caption = #25991#20214
      object N4: TMenuItem
        Action = Aclear
      end
      object N1: TMenuItem
        Action = Aclose
      end
    end
    object N2: TMenuItem
      Caption = #35774#32622
      object N3: TMenuItem
        Action = Asetcom
      end
    end
    object N5: TMenuItem
      Caption = #36890#35759
      object N6: TMenuItem
        Action = AReceive
      end
      object N7: TMenuItem
        Action = Astop
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 96
    Top = 216
    object Aclear: TAction
      Caption = #28165#38500
      ImageIndex = 2
      OnExecute = AclearExecute
    end
    object Asetcom: TAction
      Caption = #20018#21475
      ImageIndex = 1
      OnExecute = AsetcomExecute
    end
    object Aclose: TAction
      Caption = #20851#38381
      ImageIndex = 0
      OnExecute = AcloseExecute
    end
    object AReceive: TAction
      Caption = #25509#25910
      ImageIndex = 3
      OnExecute = AReceiveExecute
    end
    object Astop: TAction
      Caption = #20572#27490
      Enabled = False
      ImageIndex = 4
      OnExecute = AstopExecute
    end
    object Afont: TAction
      Caption = #23383#20307
      ImageIndex = 5
      OnExecute = AfontExecute
    end
    object Acolor: TAction
      Caption = #39068#33394
      ImageIndex = 6
      OnExecute = AcolorExecute
    end
  end
  object ImageList1: TImageList
    Left = 200
    Top = 192
    Bitmap = {
      494C010107000900040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000