Контекстное меню и грид

[hasuhands]

Хотел было сделать для грида (GridEX) контекстное меню и столкнулся с весьма неоднозначной задачей. Метода PopUpMenu у него нет?

Тогда вопрос - как? Идеально - пример реализации. Спасибо!

[hasuhands]

Нашел ответ.
Для GridEX:

Код: Выделить всё

Private Sub GridEX1_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)

Dim colClicked As JSColumn
Dim grpClicked As JSGroup
   
    If Button = vbRightButton Then
        Select Case GridEX1.HitTest(X, Y)
            Case jgexHTRowHeader
                'saving the row where the user clicked
                'to be used as a reference in mnuRowHeader
                mnuRowHeaders.Tag = GridEX1.RowFromPoint(X, Y)
                Me.PopupMenu mnuRowHeaders

            Case jgexHTColumnHeader
                Set colClicked = GridEX1.ColFromPoint(X, Y)
                If Not colClicked Is Nothing Then
                'saving the column index where the user clicked
                'to be used as a reference in mnuColumnHeader
                    mnuColumnHeader.Tag = colClicked.Index
                    Me.PopupMenu mnuColumnHeader
                End If

            Case jgexHTGroupByBox
                Set grpClicked = GridEX1.GroupFromPoint(X, Y)
                If Not grpClicked Is Nothing Then
                'saving the group index where the user clicked
                'to be used as a reference in mnuGroupbyBoxHeader
                    mnuGroupByBoxHeader.Tag = grpClicked.Index
                    Me.PopupMenu mnuGroupByBoxHeader
                End If
       
        End Select
    End If
End Sub