Class TSubclasser (unit subclass)

Inherits from

TComponent

Constructors


constructor Create(Owner: TComponent);

-------------------------------------------------------------------------------------//


Functions

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;

-------------------------------------------------------------------------------------//

Properties

property SubClassControl : TWinControl


property SubClassHandle : HWND


Events

event OnPostProcessMsg : TSubclassEvent


event OnPreProcessMsg : TSubclassEvent


Variables

bSubClassed : boolean;


FNewWndProc : Pointer;


FOldWndProc : Pointer;


FOnPostProcessMsg : TSubclassEvent;


FOnPreProcessMsg : TSubclassEvent;


FSubClassControl : TWinControl;


FSubClassHandle : HWND;



Constructors


constructor Create(Owner: TComponent);

-------------------------------------------------------------------------------------//


Functions


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;

-------------------------------------------------------------------------------------//


Properties


property SubClassControl : TWinControl


property SubClassHandle : HWND


Events


event OnPostProcessMsg : TSubclassEvent


event OnPreProcessMsg : TSubclassEvent


Variables


bSubClassed : boolean;


FNewWndProc : Pointer;


FOldWndProc : Pointer;


FOnPostProcessMsg : TSubclassEvent;


FOnPreProcessMsg : TSubclassEvent;


FSubClassControl : TWinControl;


FSubClassHandle : HWND;