Class TWindowHook (unit uSaveForm)

Inherits from

TPersistent

Constructors


constructor Create(AControl: TWinControl);

TWindowHook


Functions

destructor Destroy;


procedure DoDefault(var Message: TMessage);


procedure Hook;


procedure UnHook;


procedure HookProc(var Message: TMessage);


procedure SetEnabled(NewCond: Boolean);


procedure SetWorkInDesign(NewCond: Boolean);


Properties

property Enabled : Boolean


property WorkInDesign : Boolean


property Control : TWinControl


property Handle : THandle


property NewProc : Pointer


property OldProc : TFarProc


Events

event OnWndProc : TWinProcEvent


Variables

FControl : TWinControl;


FEnabled : Boolean;


FHandle : THandle;


FNewProc : Pointer;


FOldProc : TFarProc;


FOnWndProc : TWinProcEvent;


FWorkInDesign : Boolean;



Constructors


constructor Create(AControl: TWinControl);

TWindowHook


Functions


destructor Destroy;


procedure DoDefault(var Message: TMessage);


procedure Hook;


procedure UnHook;


procedure HookProc(var Message: TMessage);


procedure SetEnabled(NewCond: Boolean);


procedure SetWorkInDesign(NewCond: Boolean);


Properties


property Enabled : Boolean


property WorkInDesign : Boolean


property Control : TWinControl


property Handle : THandle


property NewProc : Pointer


property OldProc : TFarProc


Events


event OnWndProc : TWinProcEvent


Variables


FControl : TWinControl;


FEnabled : Boolean;


FHandle : THandle;


FNewProc : Pointer;


FOldProc : TFarProc;


FOnWndProc : TWinProcEvent;


FWorkInDesign : Boolean;