Расположение PopupMenu рядом с курсором .

[НиколайП]

Нужно что бы PopupMenu появлялось рядом с курсором мышки.
подскажите что я делаю не правильно:

Dim intRow As Integer
Dim intCol As Integer

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim z As POINTAPI

Private Sub MSFlexGrid1_DblClick()
intRow = MSFlexGrid1.Row
intCol = MSFlexGrid1.Col
If intCol = 1 Then
GetCursorPos z

PopupMenu Form3.gamer, , z.X, z.Y
Else
Exit Sub
End If
End Sub

меню появляется, но не рядом с мышью, а постоянно в одном и том же месте на форме ...

[GB826]

А обязательно на ДаблКлик вешать?
В других событиях тебе прямо точку и скажут.

Либо лови координаты в, МаусДауне например, и используй их в даблклике..

Да и вообще попапменю, без передачи координат выводицца около мыши :о))

[Twister]

PopupMenu Form3.gamer, , z.X, z.Y

Нужно

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

PopupMenu Form3.gamer, , z.X * screen.TwipsPerPixelX, z.Y * screen.TwipsPerPixelY

[GSerg]

попапменю, без передачи координат выводицца около мыши

[Twister]

Хотелось показать автору его ошибку...

[Twister]

Вдруг ему потом понадобиться выводить меню не под мышью, а где-нибудь недалеко...

[НиколайП]

спасибо всем !
и кстати Twister , ты прав , гораздо удобнее когда указывают конкретно в чём ошибка ... , и при этом предлагают наиболее простой вариант решения
Спасибо Всем !!!