jvcl driver development envionment

源代码在线查看: jvwndprochookdemomainformu.dfm

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

相关代码

				object JvWndProcHookDemoMainForm: TJvWndProcHookDemoMainForm
				  Left = 346
				  Top = 90
				  Width = 653
				  Height = 533
				  Caption = 'JvCaptionButton Demo'
				  Color = clBtnFace
				  DefaultMonitor = dmDesktop
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'MS Sans Serif'
				  Font.Style = []
				  OldCreateOrder = False
				  Position = poDesktopCenter
				  Scaled = False
				  PixelsPerInch = 96
				  TextHeight = 13
				  object Label1: TLabel
				    Left = 24
				    Top = 16
				    Width = 589
				    Height = 80
				    Caption = 
				      'This demo shows that the new RegisterWndProcHook method in JvWnd' +
				      'ProcHook can'#13#10'handle several components subclassing the same con' +
				      'trol witout losing track of the'#13#10'original WndProc regardless of ' +
				      'the order of registration/unregistration'#13#10'It also shows that the' +
				      ' WndProc link(s) are unaffected by RecreateWnd'#13#10'(which destroys ' +
				      'the old window handle)'
				    Font.Charset = DEFAULT_CHARSET
				    Font.Color = clWindowText
				    Font.Height = -13
				    Font.Name = 'MS Sans Serif'
				    Font.Style = [fsBold]
				    ParentFont = False
				  end
				  object btnAdd: TButton
				    Left = 16
				    Top = 120
				    Width = 75
				    Height = 25
				    Caption = '&Add'
				    TabOrder = 0
				    OnClick = btnAddClick
				  end
				  object btnDelete: TButton
				    Left = 16
				    Top = 152
				    Width = 75
				    Height = 25
				    Caption = '&Delete'
				    TabOrder = 1
				    OnClick = btnDeleteClick
				  end
				  object btnRecreateWnd: TButton
				    Left = 16
				    Top = 184
				    Width = 75
				    Height = 25
				    Caption = 'Recreate&Wnd'
				    TabOrder = 2
				    OnClick = btnRecreateWndClick
				  end
				  object lbButtons: TListBox
				    Left = 112
				    Top = 120
				    Width = 505
				    Height = 353
				    Anchors = [akLeft, akTop, akRight, akBottom]
				    ItemHeight = 13
				    TabOrder = 3
				  end
				end
							

相关资源