mousekey.xfm

来自「《Kylix程序设计》一书中附带的例程源代码」· XFM 代码 · 共 24 行

object FrmMain: TFrmMain
  Left = 216
  Top = 127
  Width = 511
  Height = 219
  Caption = 'Capturing mouse and key events...'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 13
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  ParentFont = False
  OnClick = FormClick
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnKeyUp = FormKeyUp
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  PixelsPerInch = 97
  TextHeight = 15
  TextWidth = 7
end