⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 mousekey.xfm

📁 《Kylix程序设计》一书中附带的例程源代码
💻 XFM
字号:
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  endend

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -