Desktop Application Object - ControlAtPoint Method
Returns the control at the specified location
Member of Desktop Application Object (PRIM_APPL)
| Name | Type | Data Type | Description |
|---|---|---|---|
| Control | *Result (Optional) | PRIM_CTRL | Control in which to search |
| Left | *Input (Optional) | Integer | Left position in pixels |
| Top | *Input (Optional) | Integer | Top position in pixels |
| ControlPart | *Output (Optional) | PRIM_OBJT | Reference to the Control at the specified point |
The ControlAtPoint property returns a reference to the control currently under the mouse pointer.
In this example, when the hover event fires on the panel, ControlAtPoint is used to determine the control currently under the mouse.
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(172) Clientwidth(364) Height(211) Left(137) Top(198) Width(380)
Define_Com Class(#PRIM_VS.Style) Name(#Style1) Backgroundbrush(#Brush1)
Define_Com Class(#PRIM_VS.SolidBrush) Name(#Brush1) Color(Theme100)
Define_Com Class(#PRIM_PANL) Name(#Panel) Displayposition(1) Left(16) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(15) Height(146) Width(337) Style(#Style1)
Define_Com Class(#PRIM_PHBN) Name(#Button1) Caption('Button1') Displayposition(1) Left(28) Parent(#Panel1) Tabposition(1) Top(32)
Define_Com Class(#PRIM_PHBN) Name(#Button2) Caption('Button2') Displayposition(2) Left(128) Parent(#Panel1) Tabposition(2) Top(32)
Define_Com Class(#PRIM_PHBN) Name(#Button3) Caption('Button3') Displayposition(3) Left(224) Parent(#Panel1) Tabposition(3) Top(32)
Evtroutine Handling(#Panel.MouseHover)
#Com_owner.Caption := #sys_appln.ControlAtPoint.Name
Endroutine
End_Com
Febuary 18 V14SP2