Class TSubclasser (unit subclass) |
Inherits from
TComponent
constructor Create(Owner: TComponent);
- -------------------------------------------------------------------------------------//
destructor Destroy;
-------------------------------------------------------------------------------------//
procedure DoSubclass;
-------------------------------------------------------------------------------------//
function GetSubClassControl: TWinControl;
-------------------------------------------------------------------------------------//
function GetSubClassHandle: HWND;
-------------------------------------------------------------------------------------//
procedure SetSubClassControl(Value: TWinControl);
-------------------------------------------------------------------------------------//
procedure SetSubClassHandle(Value: HWND);
-------------------------------------------------------------------------------------//
procedure SubclassProc( var msg:TMessage );
-------------------------------------------------------------------------------------//
procedure UndoSubclass;
-------------------------------------------------------------------------------------//
property SubClassControl : TWinControl
property SubClassHandle : HWND
event OnPostProcessMsg : TSubclassEvent
event OnPreProcessMsg : TSubclassEvent
bSubClassed : boolean;
FNewWndProc : Pointer;
FOldWndProc : Pointer;
FOnPostProcessMsg : TSubclassEvent;
FOnPreProcessMsg : TSubclassEvent;
FSubClassControl : TWinControl;
FSubClassHandle : HWND;
constructor Create(Owner: TComponent);
-------------------------------------------------------------------------------------//
destructor Destroy;
-------------------------------------------------------------------------------------//
procedure DoSubclass;
-------------------------------------------------------------------------------------//
function GetSubClassControl: TWinControl;
-------------------------------------------------------------------------------------//
function GetSubClassHandle: HWND;
-------------------------------------------------------------------------------------//
procedure SetSubClassControl(Value: TWinControl);
-------------------------------------------------------------------------------------//
procedure SetSubClassHandle(Value: HWND);
-------------------------------------------------------------------------------------//
procedure SubclassProc( var msg:TMessage );
-------------------------------------------------------------------------------------//
procedure UndoSubclass;
-------------------------------------------------------------------------------------//
property SubClassControl : TWinControl
property SubClassHandle : HWND
event OnPostProcessMsg : TSubclassEvent
event OnPreProcessMsg : TSubclassEvent
bSubClassed : boolean;
FNewWndProc : Pointer;
FOldWndProc : Pointer;
FOnPostProcessMsg : TSubclassEvent;
FOnPreProcessMsg : TSubclassEvent;
FSubClassControl : TWinControl;
FSubClassHandle : HWND;