unit1.dfm

DELPHI局部键盘模拟的源码

object Form1: TForm1
  Left = 748
  Top = 476
  Width = 256
  Height = 217
  Caption = #27979#35797
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 136
    Top = 152
    Width = 49
    Height = 25
    Caption = #21551#21160
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 233
    Height = 137
    Lines.Strings = (
      #12288
      #38190#30424#23616#37096#27169#25311#65288'PostMessage'#65289
      #12288#20197#21518#21488#26041#24335#22312#25351#23450#31243#24207#20013#20316#38190#30424#27169#25311#12290
      #12288
      #27979#35797#35828#26126#65306
      #12288'1'#12289#26032#25171#24320#19968#20010#31354#30333#35760#20107#26412#12290
      #12288'2'#12289#25353#21551#21160#38190#65288#19981#35770#35760#20107#26412#26159#21542#22312#21069#21488#65289
      #12288' '#12288#37117#20250#33258#21160#25171#20837'"1234"'#12290
      ''
      '')
    ReadOnly = True
    TabOrder = 1
  end
  object Button2: TButton
    Left = 192
    Top = 152
    Width = 49
    Height = 25
    Caption = #20572#27490
    Enabled = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 96
    Top = 152
  end
end