| Class TSubclasser (unit subclass) |
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;