![]() Example |
![]() ![]() ![]() |
acAppCursors component.
|
type
|
TacMouseOverObjectEvent = procedure(Sender: TObject; AppObject: TacAppObject; WndHandle: THandle; var Cursor: TCursor) of object;
|
|
property OnMouseOverObject: TacMouseOverObjectEvent;
|
The OnMouseOverObject event occurs whenever mouse pointer moves over form's hot spot object. Write the OnMouseOverObject event handler to determinate the hotspot under the mouse pointer (AppObject parameter), determinate the window handle (WndHandle parameter) and determinate or change the mouse cursor for determined hotspot object.
|
Example
|