Убрать POPUPMENU при нажатии не на ее область

[Malone32®]

Как убирать POPUP menu, которое появляется при щелчке на иконку в трее при нажатии не на ее область??

[alibek]

Открывай его как vbPopupRightButton.

[Malone32®]

А я так и делаю...

[_Мика_]

А как такое может быть?

[Malone32®]

Дело в том, что когда я запускаю именно екзешник, так и происходит, а когда просто f5, то все работает нормально

[pavel-raziel]

Я делаю так:

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

Public Sub CallPopupMenu(Window As Form, PopMenu As Menu, Optional Flags, Optional X, Optional Y, Optional DefMenu)
      SetForegroundWindow m_hWnd
      Window.PopupMenu PopMenu, Flags, X, Y, DefMenu
      PostMessage m_hWnd, WM_NULL, 0, 0
End Sub

А потом вызываю:

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

Private Sub cTray_OnIcon(MouseButton As Integer)
    Debug.Print MouseButton
    If MouseButton = TRAYICON_MOUSE_RIGHTUP Then cTray.CallPopupMenu Form1, ptray, 2, , , Vost
End Sub

[tyomitch]

Ой как надоели...
http://support.microsoft.com/kb/135788