mousekey.xfm

《Kylix程序设计》一书中附带的例程源代码

object FrmMain: TFrmMain
  Left = 216
  Top = 127
  Width = 511
  Height = 312
  HorzScrollBar.Range = 497
  VertScrollBar.Range = 301
  Caption = 'Capturing mouse and key events...'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 13
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  ParentFont = False
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  PixelsPerInch = 97
  TextHeight = 15
  TextWidth = 7
  object Memo: TMemo
    Left = 184
    Top = 16
    Width = 313
    Height = 169
    Enabled = False
    TabOrder = 0
  end
  object GrpBoxShift: TGroupBox
    Left = 4
    Top = 8
    Width = 169
    Height = 177
    Caption = 'Shift State:'
    Enabled = False
    TabOrder = 1
    object ChkBoxShiftKey: TCheckBox
      Left = 12
      Top = 16
      Width = 100
      Height = 30
      Caption = 'Shift Key'
      Enabled = False
      TabOrder = 0
    end
    object ChkBoxAltKey: TCheckBox
      Left = 12
      Top = 41
      Width = 100
      Height = 30
      Caption = 'Alt Key'
      Enabled = False
      TabOrder = 1
    end
    object ChkBoxCtrlKey: TCheckBox
      Left = 12
      Top = 67
      Width = 100
      Height = 30
      Caption = 'Ctrl Key'
      Enabled = False
      TabOrder = 2
    end
    object ChkBoxButtonLeft: TCheckBox
      Left = 12
      Top = 92
      Width = 145
      Height = 30
      Caption = 'Mouse Left Button'
      Enabled = False
      TabOrder = 3
    end
    object ChkBoxButtonRight: TCheckBox
      Left = 12
      Top = 118
      Width = 149
      Height = 30
      Caption = 'Mouse Right Button'
      Enabled = False
      TabOrder = 4
    end
    object ChkBoxButtonMiddle: TCheckBox
      Left = 12
      Top = 144
      Width = 149
      Height = 30
      Caption = 'Mouse Middle Button'
      Enabled = False
      TabOrder = 5
    end
  end
  object GrpBoxButton: TGroupBox
    Left = 4
    Top = 196
    Width = 169
    Height = 105
    Caption = 'Button:'
    Enabled = False
    TabOrder = 2
    object ChkBoxLeftButton: TCheckBox
      Left = 12
      Top = 16
      Width = 100
      Height = 30
      Caption = 'Left Button'
      Enabled = False
      TabOrder = 0
    end
    object ChkBoxRightButton: TCheckBox
      Left = 12
      Top = 42
      Width = 100
      Height = 30
      Caption = 'Right Button'
      Enabled = False
      TabOrder = 1
    end
    object ChkBoxMiddleButton: TCheckBox
      Left = 12
      Top = 68
      Width = 100
      Height = 30
      Caption = 'Middle Button'
      Enabled = False
      TabOrder = 2
    end
  end
end