unit1.~dfm

delphi 控制设备程序

object Form1: TForm1
  Left = 520
  Top = 146
  Width = 618
  Height = 557
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 280
    Top = 216
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object Label2: TLabel
    Left = 16
    Top = 336
    Width = 32
    Height = 13
    Caption = 'Label2'
  end
  object Label3: TLabel
    Left = 256
    Top = 432
    Width = 345
    Height = 25
    AutoSize = False
    Caption = #27492#22788#26174#31034#22823#20889#30340#36716#25442#32467#26524
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 280
    Top = 272
    Width = 32
    Height = 13
    Caption = 'Label4'
  end
  object Label5: TLabel
    Left = 336
    Top = 472
    Width = 32
    Height = 13
    Caption = 'Label5'
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 507
    Width = 610
    Height = 23
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 610
    Height = 68
    AutoSize = True
    Bands = <
      item
        Control = tbMainMenu
        ImageIndex = -1
        MinHeight = 21
        Width = 610
      end
      item
        Control = tbCmdButton
        ImageIndex = -1
        MinHeight = 22
        Width = 610
      end
      item
        Control = CmbBoxAddress
        ImageIndex = -1
        MinHeight = 21
        Text = #22320#22336#26639
        Width = 610
      end>
    EdgeInner = esNone
    EdgeOuter = esNone
    object tbMainMenu: TToolBar
      Left = 9
      Top = 0
      Width = 597
      Height = 21
      Align = alClient
      AutoSize = True
      ButtonHeight = 21
      ButtonWidth = 51
      Caption = #20027#33756#21333
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Menu = MainMenu1
      ShowCaptions = True
      TabOrder = 0
    end
    object tbCmdButton: TToolBar
      Left = 9
      Top = 23
      Width = 597
      Height = 22
      Align = alClient
      AutoSize = True
      Caption = #21629#20196#25353#38062
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ImageListHot
      TabOrder = 1
      object tButtonBack: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = #21518#36864
        ImageIndex = 0
        OnClick = tButtonBackClick
      end
      object tButtonForward: TToolButton
        Left = 23
        Top = 0
        AutoSize = True
        Caption = #21069#36827
        ImageIndex = 1
        OnClick = tButtonForwardClick
      end
      object tButtonHome: TToolButton
        Left = 46
        Top = 0
        AutoSize = True
        Caption = #20027#39029
        ImageIndex = 2
        OnClick = tButtonHomeClick
      end
      object tButtonRefresh: TToolButton
        Left = 69
        Top = 0
        AutoSize = True
        Caption = #21047#26032
        ImageIndex = 3
        OnClick = tButtonRefreshClick
      end
      object tButtonStop: TToolButton
        Left = 92
        Top = 0
        AutoSize = True
        Caption = #20572#27490
        ImageIndex = 4
        OnClick = tButtonStopClick
      end
    end
    object CmbBoxAddress: TComboBox
      Left = 49
      Top = 47
      Width = 557
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = #35831#22312#27492#36755#20837#38142#25509#22320#22336
      OnClick = CmbBoxAddressClick
      OnKeyPress = CmbBoxAddressKeyPress
    end
  end
  object Panel1: TPanel
    Left = 264
    Top = 68
    Width = 338
    Height = 341
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 2
    object WebBrowser1: TWebBrowser
      Left = 0
      Top = 0
      Width = 334
      Height = 337
      Align = alClient
      TabOrder = 0
      ControlData = {
        4C00000085220000D42200000000000000000000000000000000000000000000
        000000004C000000000000000000000001000000E0D057007335CF11AE690800
        2B2E126208000000000000004C0000000114020000000000C000000000000046
        8000000000000000000000000000000000000000000000000000000000000000
        00000000000000000100000000000000000000000000000000000000}
    end
  end
  object MSComm1: TMSComm
    Left = 432
    Top = 0
    Width = 32
    Height = 32
    OnComm = MSComm1Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00040100C01200000100080000000000000000003F00000011000000}
  end
  object Memo1: TMemo
    Left = 16
    Top = 80
    Width = 233
    Height = 217
    Lines.Strings = (
      'Memo1')
    TabOrder = 4
  end
  object Button1: TButton
    Left = 16
    Top = 304
    Width = 75
    Height = 25
    Caption = 'Clear'
    TabOrder = 5
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 16
    Top = 360
    Width = 57
    Height = 21
    TabOrder = 6
    Text = '100'
  end