| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как закрыть всплывающее меню в SystemTray когда оно теряет фокус? [D6, WinXP]

Volf_555 ©   (2006-01-15 16:29:00) 

В справке по этому поводу пишется:
Иногда, при потере фокуса, всплывающее меню в System Tray при потере фокуса не закрывается. Поэтому, при обработке сообщений для всплывающего меню необходимо поместить окно на передний план и послать ему сообщение WM_NULL.

procedure TForm1.WndProc(var Msg : TMessage);
var
 p : TPoint;
begin
 case Msg.Msg of
   WM_USER + 1:
   case Msg.lParam of
     WM_RBUTTONDOWN: begin
        SetForegroundWindow(Handle);
        GetCursorPos(p);
        PopupMenu1.Popup(p.x, p.y);
        PostMessage(Handle, WM_NULL, 0, 0);
     end;
   end;
 end;
 inherited;
end;

Когда я добавляю эту процедуру в свой проэкт и в раздел privateдобавляю procedure WndProc(var Msg : TMessage);, то эта процедура не срабатывает, то есть - когда я нажимаю правой кнопкой в трэи - всплывает попап-меню. Если я нажимаю мышью за границей этого меню, то меню не закрывается....

Как сделать чтобы меню закрывалось при щелчке мышью за пределами меню?

---

Volf_555   (2006-01-15 17:37:00) [1]

> Rouse_ ©   (15.01.06 17:34) [2]


Огромное спасибо! То что нужно!

---

Rouse_   (2006-01-15 17:34:00) [2]

Просто перед показом меню делай SetForegroundWindow(Handle);

---

VirEx   (2006-01-15 16:42:00) [3]

следить активно ли окно или нет, у меня в WinConsul сделано так:
WM_ACTIVATE:
//если окно стало неактивным и оно раскрыто до конца то анимация "сворачивания"
if (Msg.lParam shl 16)=WA_INACTIVE then

---

Наверх