

| Type | Description | |||
| X as OLE_XPOS_PIXELS | A single that specifies the current X location of the mouse pointer. The x values is always expressed in client coordinates. | |||
| Y as OLE_YPOS_PIXELS | A single that specifies the current Y location of the mouse pointer. The y values is always expressed in client coordinates. | |||
| Group | A Group object whose list is under the cursor. |
The following VB sample prints the cell over the cursor:
Private Sub ExplorerTree1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim g As EXPLORERTREELibCtl.Group
With ExplorerTree1
Set g = .GroupListFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY)
If Not (g Is Nothing) Then
With g
Dim h As Long, c As Long, hit as Long
h = .ItemFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY, c, hit)
If Not (h = 0) Then
With g.Items
Debug.Print .CellCaption(h, c)
End With
End If
End With
End If
End With
End Sub
The following VFP sample prints the cell's caption from the cursor:
*** ActiveX Control Event ***
LPARAMETERS button, shift, x, y
with thisform.Olecontrol1
local g
g = .GroupListFromPoint(-1,-1)
If !isnull(g) Then
with g
local h, c, hit
c = 0
hit = 0
h = .ItemFromPoint(-1,-1,@c,@hit)
If h # 0 Then
with .Items
.DefaultItem = h
wait window .CellCaption(0, c) nowait
endwith
EndIf
endwith
EndIf
endwith