Use a MouseDown or MouseUp event procedure to specify actions that will occur when a mouse button is pressed or released. Unlike the Click and DblClick events, MouseDown and MouseUp events lets you distinguish between the left, right, and middle mouse buttons. You can also write code for mouse-keyboard combinations that use the SHIFT, CTRL, and ALT keyboard modifiers. Use the GroupFromPoint property to get the group's caption from the point. Use the GroupListFromPoint property to get the group's list from point. Use the ItemFromPoint property to get the item over the cursor. Use the ColumnFromPoint property to get the column's caption over the cursor. The ExpandOnClick property expands the group when its caption is clicked. Use the ShortcutFromPoint property to retrieve the shortcut from 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

---

Send comments on this topic.

© 1999-2008 Exontrol Inc, Software. All rights reserved.