Class TControlAtCursorPos (unit mousefcs)

Inherits from

TComponent

Constructors


constructor Create(AOwner : TComponent);



Functions

destructor Destroy;

Create object instance for EditWndProc

procedure Notification(AComponent: TComponent; Operation: TOperation);

call the correct wndproc

procedure FormWndProc(var Message: TMessage);

our wndproc

procedure Loaded;

set FForm here

Free object instance


procedure SetForm(Value : TForm);

call SetFormControl procedure

Properties

property Control : TControl


Events

event OnChange : TChangeControlAtCursorPos


Variables

FControl : TControl;


FForm : TForm;


FFormWndProcAdd : Pointer;

the addres of the EditControl wndproc

FOnChange : TChangeControlAtCursorPos;


ObjectInstance : Pointer;

instance for EditWndProc


Constructors


constructor Create(AOwner : TComponent);


Functions


destructor Destroy;

Create object instance for EditWndProc


procedure Notification(AComponent: TComponent; Operation: TOperation);

call the correct wndproc


procedure FormWndProc(var Message: TMessage);

our wndproc


procedure Loaded;

set FForm here

Free object instance


procedure SetForm(Value : TForm);

call SetFormControl procedure


Properties


property Control : TControl


Events


event OnChange : TChangeControlAtCursorPos


Variables


FControl : TControl;


FForm : TForm;


FFormWndProcAdd : Pointer;

the addres of the EditControl wndproc


FOnChange : TChangeControlAtCursorPos;


ObjectInstance : Pointer;

instance for EditWndProc