PopupMenu в Datagrid'e

[VVitafresh]

Извиняюсь за возможно ламерский вопрос, но что-то я в трех соснах заблудился

Хочу по правому щелчку в датагриде вызывать PopupMenu, но перед этим текущей делать ту запись, по которой щелкнули.

Если вызов PopupMenu поместить в событие MouseDown (или MouseUp), то просто вызывается меню (что естественно). А как перед этим текущей сделать ту строчку таблицы (запись), по которой щелкнули?

[zHackLeX]

ну спровоцируй сперва клик левой кнопкой мыши, а потом вызови меню:)

[VVitafresh]

Пока так и сделал.

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

Private Sub grdResult_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
        DoEvents 'Сначала не допер, что нужно DoEvents
        PopupMenu mnuPopupPutty
    End If
End Sub

Думал, может быть без привлечения WinAPI можно обойтись стандартными событиями

[Antonariy]

Можно. Причем F2 рулит неимоверно.

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

Private Sub grdResult_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        grdResult.Bookmark = grdResult.RowBookmark(grdResult.RowContaining(Y))
        PopupMenu mnuPopupPutty
    End If
End Sub

[VVitafresh]

Antonariy, супер! Это именно то, чего я хотел.

[GSerg]

Это плохой код. Он требует рекордсета, поддерживающего закладки. А ещё он рассчитан на то, что форма имеет систему координат в твипах. А ещё он не учитывает ситуацию, когда кликнули не по строке. А ещё он работает по MouseDown.

Более хороший код --

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

Private Sub grdFinance_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  Dim r As Long
 
  r = grdFinance.RowContaining(Me.ScaleY(y, vbTwips, Me.ScaleMode))
  If r >= 0 Then
    grdFinance.Row = r
    Me.PopupMenu frmMain.mnuGrid
  End If
End Sub

[VVitafresh]

GSerg, спасибо за существенное уточнение. Уже учел в коде.