mousehookdemou.dfm

来自「Delphi Win32核心API参考光盘源码 本书包含了常用的Windows」· DFM 代码 · 共 50 行

object Form1: TForm1
  Left = 193
  Top = 107
  BorderStyle = bsDialog
  Caption = 'Global Hook Demo'
  ClientHeight = 142
  ClientWidth = 326
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 298
    Height = 57
    AutoSize = False
    Caption = 
      'This application installs a DLL containing a system level mouse ' +
      'hook. Click the '#39'Install Hook'#39' button to install the hook, then ' +
      'left click on the desktop to hear a beep. Click '#39'Remove Hook'#39' to' +
      ' remove the global mouse hook.'
    WordWrap = True
  end
  object Button1: TButton
    Left = 8
    Top = 72
    Width = 305
    Height = 25
    Caption = 'Install Hook'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 8
    Top = 104
    Width = 305
    Height = 25
    Caption = 'Remove Hook'
    TabOrder = 1
    OnClick = Button2Click
  end
end