main.dfm

这是通过COM口对声波触摸屏控制卡进行仿真测试的程序的源码. BCB

object Form1: TForm1
  Left = 291
  Top = 210
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 20
  object Label2: TLabel
    Left = 19
    Top = 13
    Width = 64
    Height = 20
    Caption = '工作模式'
  end
  object ComboBox2: TComboBox
    Left = 96
    Top = 6
    Width = 116
    Height = 28
    Style = csDropDownList
    DropDownCount = 12
    ImeName = '中文 (简体) - 微软拼音'
    ItemHeight = 20
    TabOrder = 0
    OnChange = ComboBox2Change
    Items.Strings = (
      'Calibrate Extended'
      'Calibrate Raw'
      'Finger Only'
      'Format Raw'
      'Format Tablet'
      'Get Parameter'
      'Mode Stream'
      'Null Command'
      'Out Identity'
      'Pen Only'
      'Pen or Finger'
      'Reset'
      'Restore Defaults'
      'Set Parameter'
      'Unit Type'
      'Unit Type Verify')
  end
  object Button1: TButton
    Left = 339
    Top = 6
    Width = 78
    Height = 20
    Caption = '结果存入'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 442
    Top = 6
    Width = 96
    Height = 28
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 2
    Text = 'TEST'
  end
  object M1: TMemo
    Left = 0
    Top = 70
    Width = 690
    Height = 412
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '仿宋_GB2312'
    Font.Style = []
    ImeName = '中文 (简体) - 微软拼音'
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 3
  end
end