Глюк меню!

[DVV]

Почему меню не исчезает(исчезает только тогда,когда в нм что-нибудь выберешь) Popup menu

[GSerg]

А когда ещё оно должно исчезать?

[DVV]

При шелчке вне этого меню!

[GSerg]

Исчезает!

[DVV]

А если меню появл.при шелчке по иконке(tray)

[tyomitch]

Ну вы, блин, даёте...
http://support.microsoft.com/default.as ... -us;135788

[DVV]

SYMPTOMS
When you display a context menu for a notification icon (see Shell_NotifyIcon), clicking anywhere besides the menu or the window that created the menu (if it is visible) doesn't cause the menu to disappear. When this behavior is corrected, the second time this menu is displayed, it displays and then immediately disappears.
RESOLUTION
To correct the first behavior, you need to make the current window the foreground window before calling TrackPopupMenu or TrackPopupMenuEx.

The second problem is caused by a problem with TrackPopupMenu. It is necessary to force a task switch to the application that called TrackPopupMenu at some time in the near future. This can be accomplished by posting a benign message to the window or thread.

The following code will take care of all of this: SetForegroundWindow(hDlg);

// Display the menu
TrackPopupMenu( hSubMenu,
TPM_RIGHTBUTTON,
pt.x,
pt.y,
0,
hDlg,
NULL);

PostMessage(hDlg, WM_NULL, 0, 0);

А теперь вопрос:КУДА ЭТОТ КОД ВТАВЛЯТЬ!

[DVV]

Так кто-нибудь знает ответ на этот вопрос?

[alibek]

Что непонятного-то?
Перед показом меню устанавливаешь фокус на свою форму, затем показываешь меню и шлешь своему окну WM_NULL.

[DVV]

Хорошо,а поподробнее можно!
Буду очень благодарен!

[DVV]

Напишите пожалуйста код целиком!Мне это надо,надо!

[Amed]

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

Me.SetFocus
PopupMenu myMenu
PostMessage Me.Hwnd, WM_NULL, 0, 0

Только ещё нужно объявить PostMessage:

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

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

[Amed]

Точнее, полный код приблизительно такой:

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

Option Explicit
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Form_Load()
Me.SetFocus
PopupMenu myMenu
PostMessage Me.hwnd, WM_NULL, 0, 0
End Sub


Если я всё правильно понял )))

[DVV]

wm_null-это куда!
У меня ошибка,типа такая переменная не об-на!

[Eduard]

А вот кстати вы курсе, что этот приём не работает в том случае, если когда светится менюха (в SysTray у иконки), кликнуть на Панель задач, то меньшка просто уйдет на задний план.

[Amed]

Ага...

Private Const WM_NULL = &H0

[DVV]

TrackPopupMenu( hSubMenu,
TPM_RIGHTBUTTON,
pt.x,
pt.y,
0,
hDlg,
NULL);
-Это для чего,у меня без неё работает!

[gaidar]

В программировании есть один принцип, если что-то работает без чегото (и если это чего-то не проверка на ошибку или фича связанная с безопасностью кода), то это можно выкинуть незадумываясь

[DVV]

Интересно,но всё же для чего это?

[DVV]

Какую api-функцию и константы надо написать для TrackPopupMenu.

[Max!]

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

Declare Function TrackPopupMenu Lib "user32" Alias "TrackPopupMenu" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, lprc As Rect) As Long


[DVV]

Я пробовал,ругается на неё VB.
Почему не знаю!А именно ему не нравиться lprc As Rect!