jvcl driver development envionment

源代码在线查看: jvshellhookdemomainformu.dfm

软件大小: 11078 K
上传用户: haowfei
关键词: development envionment driver jvcl
下载地址: 免注册下载 普通下载 VIP

相关代码

				object JvShellHookDemoMainForm: TJvShellHookDemoMainForm
				  Left = 333
				  Top = 148
				  Width = 540
				  Height = 280
				  Hint = 
				    'Try opening and closing programs, move focus between application' +
				    's etc.'#13#10#13#10'If your keyboard has extra buttons for opening mail pr' +
				    'ograms, '#13#10'raising/lowering the volume etc, try pressing those to' +
				    ' see the messages'#13#10'being intercepted.'#13#10#13#10'If the Active checkbox ' +
				    'is grayed out, this means your system doesn'#39't support '#13#10'the Regi' +
				    'sterShellHookWindow/DeregisterShellHookWindow functions.'#13#10
				  Caption = 'JvShellHook Demo'
				  Color = clBtnFace
				  Constraints.MinHeight = 280
				  Constraints.MinWidth = 540
				  DefaultMonitor = dmDesktop
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Shell Dlg 2'
				  Font.Style = []
				  FormStyle = fsStayOnTop
				  OldCreateOrder = False
				  Position = poDesktopCenter
				  Scaled = False
				  ShowHint = True
				  OnCreate = FormCreate
				  OnDestroy = FormDestroy
				  PixelsPerInch = 96
				  TextHeight = 13
				  object Label1: TLabel
				    Left = 8
				    Top = 8
				    Width = 59
				    Height = 13
				    Caption = '&Messages:'
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -11
				    Font.Name = 'MS Shell Dlg 2'
				    Font.Style = [fsBold]
				    ParentFont = False
				  end
				  object btnClear: TButton
				    Left = 448
				    Top = 207
				    Width = 75
				    Height = 25
				    Anchors = [akRight, akBottom]
				    Caption = '&Clear'
				    TabOrder = 3
				    OnClick = btnClearClick
				  end
				  object chkActive: TCheckBox
				    Left = 16
				    Top = 197
				    Width = 97
				    Height = 17
				    Anchors = [akLeft, akBottom]
				    Caption = '&Active'
				    TabOrder = 1
				    OnClick = chkActiveClick
				  end
				  object chkNoRedraw: TCheckBox
				    Left = 16
				    Top = 220
				    Width = 121
				    Height = 17
				    Anchors = [akLeft, akBottom]
				    Caption = 'Don'#39't show &redraws'
				    Checked = True
				    State = cbChecked
				    TabOrder = 2
				  end
				  object lvMessages: TListView
				    Left = 8
				    Top = 32
				    Width = 515
				    Height = 155
				    Anchors = [akLeft, akTop, akRight, akBottom]
				    BorderStyle = bsNone
				    Columns = <
				      item
				        Caption = 'Message'
				        Width = 200
				      end
				      item
				        Caption = 'wParam'
				        Width = 100
				      end
				      item
				        Caption = 'lParam'
				        Width = 100
				      end
				      item
				        AutoSize = True
				        Caption = 'Result'
				      end>
				    ColumnClick = False
				    HideSelection = False
				    ReadOnly = True
				    RowSelect = True
				    TabOrder = 0
				    ViewStyle = vsReport
				    OnResize = lvMessagesResize
				  end
				end
							

相关资源