| Class TControlAtCursorPos (unit mousefcs) |
TComponent
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
destructor Destroy;
procedure Notification(AComponent: TComponent; Operation: TOperation);
procedure FormWndProc(var Message: TMessage);
procedure Loaded;Free object instance
procedure SetForm(Value : TForm);| Properties |
property Control : TControl| Events |
event OnChange : TChangeControlAtCursorPos| Variables |
FControl : TControl;
FForm : TForm;
FFormWndProcAdd : Pointer;
FOnChange : TChangeControlAtCursorPos;
ObjectInstance : Pointer;| 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