unit1.~dfm

本人自己用Delphi做的串口测试程序

object Form1: TForm1
  Left = 284
  Top = 207
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'EEPROM'#27979#35797#31243#24207'----'#22825#31809#30005#22768#22120#26448#26377#38480#20844#21496
  ClientHeight = 304
  ClientWidth = 619
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 525
    Top = 146
    Width = 60
    Height = 13
    Caption = #20018#21475#36873#25321#65306
  end
  object Label2: TLabel
    Left = 525
    Top = 189
    Width = 41
    Height = 13
    Caption = 'Settings:'
  end
  object Label3: TLabel
    Left = 515
    Top = 234
    Width = 18
    Height = 13
    Caption = '      '
  end
  object Label4: TLabel
    Left = 541
    Top = 234
    Width = 81
    Height = 13
    AutoSize = False
    Caption = #31471#21475#26410#25171#24320
  end
  object Label7: TLabel
    Left = 523
    Top = 102
    Width = 88
    Height = 13
    Caption = #22635#20805#23383#31526'(HEX)'#65306
  end
  object Memo2: TMemo
    Left = 395
    Top = 30
    Width = 118
    Height = 258
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = []
    Lines.Strings = (
      'Memo2')
    ParentFont = False
    ReadOnly = True
    TabOrder = 9
  end
  object MSComm1: TMSComm
    Left = 581
    Top = 118
    Width = 32
    Height = 32
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020000802500000000080000000000000000003F00000001000000}
  end
  object Button1: TButton
    Left = 525
    Top = 34
    Width = 89
    Height = 25
    Caption = #35835'EEPROM'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 525
    Top = 70
    Width = 89
    Height = 25
    Caption = #20889'EEPROM'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 30
    Width = 393
    Height = 258
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = #26032#23435#20307
    Font.Style = []
    Lines.Strings = (
      'Memo1')
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    OnClick = Memo1Click
    OnKeyPress = Memo1KeyPress
    OnKeyUp = Memo1KeyUp
  end
  object ComboBox1: TComboBox
    Left = 525
    Top = 165
    Width = 89
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 3
    Text = 'COM1'
    OnChange = ComboBox1Change
    Items.Strings = (
      'COM1'
      'COM2'
      'COM3'
      'COM4')
  end
  object Button3: TButton
    Left = 525
    Top = 254
    Width = 81
    Height = 25
    Caption = #25171#24320#20018#21475
    TabOrder = 4
    OnClick = Button3Click
  end
  object ComboBox2: TComboBox
    Left = 525
    Top = 205
    Width = 89
    Height = 21
    ItemHeight = 13
    ItemIndex = 3
    TabOrder = 5
    Text = '9600,n,8,1'
    OnChange = ComboBox2Change
    Items.Strings = (
      '1200,n,8,1'
      '2400,n,8,1'
      '4800,n,8,1'
      '9600,n,8,1'
      '19200,n,8,1')
  end
  object Edit1: TEdit
    Left = 525
    Top = 118
    Width = 49
    Height = 21
    TabOrder = 6
    Text = '55'
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 286
    Width = 649
    Height = 17
    Max = 32
    Step = 1
    TabOrder = 7
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 619
    Height = 25
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 10
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = 'ToolButton1'
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 23
      Top = 2
      Caption = 'ToolButton2'
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 141
    Top = 46
    object F1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N6: TMenuItem