Pop-up меню при клике на иконке в трее

[pancer]

Проблема: меню при клике по иконке нормально создаётся, но его невозможно убрать с экрана, пока не выберешь один из его пунктов. В общем, как сделать, чтобы при клике мышкой на любом месте рабочего стола меню исчезало?
Вот как я его (меню) делаю (API-декларации опускаем):

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


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim menuId As Long, menuText As String
Dim pos As POINTAPI

If (Y = 0) Then
    Select Case X
    Case 517 * Screen.TwipsPerPixelX  'right click       
       
        hMenu = CreatePopupMenu 'создаем пустое всплывающее меню
        AppendMenu hMenu, MF_STRING, 1100, "Первый пункт"
        AppendMenu hMenu, MF_STRING, 1200, "Второй пункт"
        AppendMenu hMenu, MF_SEPARATOR, 1300, ByVal 0&
        AppendMenu hMenu, MF_STRING, 1400, "Четвертый пункт"
        AppendMenu hMenu, MF_STRING, 1500, "Пятый пункт"
        AppendMenu hMenu, MF_SEPARATOR, 1600, ByVal 0&
        AppendMenu hMenu, MF_STRING, 1700, "Седьмой пункт"
       
        GetCursorPos pos
        menuId = TrackPopupMenu(hMenu, TPM_RETURNCMD, pos.X, pos.Y, 0, Me.hwnd, ByVal 0&)
        Select Case menuId
            Case 1100
                msgbox "Первый пункт"
            Case 1200
                msgbox "Второй пункт"
            Case 1400
                msgbox "Четвёртый пункт"
            Case 1500
                msgbox "Пятый пункт"
            Case 1700
                msgbox "Седьмой пункт"
        End Select

    End Select
End If
End Sub


P.S. Просьба к googl'у не отсылать, там я ничего не нашёл.

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

[homeworld]

используй TryIcon

[pancer]

Помедленнее, я записываю...
Если можно, какой нибудь пример в пару строк...

[JohnK]

Это очень распространенный глюк, описанный в МСДНе. Бороться так:

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

SetForegroundWindows Me
PopUpMEnu Popm, Flags, x,y,DefMenu
PostMessage Me, wm_null,0,0


[jangle]

JohnK - все правильно, но я бы еще добавил одну строчку

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

SetForegroundWindows Me.hwnd
GetCursorPos pos   
TrackPopupMenu hMenu, TPM_RETURNCMD, pos.X, pos.Y, 0, Me.hwnd, ByVal 0&
PostMessage Me.hwnd , wm_null,0,0

[BION]

Вот класс с которым я работаю уже давно, все работает как часы... китайские шучу.

Примерчик с классом
ВОт только с MDI формой подглючивает.

[pancer]

Спасибо, помогло.

[NIC]

JohnK - все правильно, но я бы еще добавил одну строчку

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

SetForegroundWindows Me.hwnd
GetCursorPos pos   
TrackPopupMenu hMenu, TPM_RETURNCMD, pos.X, pos.Y, 0, Me.hwnd, ByVal 0&
PostMessage Me.hwnd , wm_null,0,0

И ещё одну:

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

ReleaseCapture

После выбора нажатого батона.