Скачать: CL | DM;

Народ, как определить что у меня курсор не на PopupMenu???   Найти похожие ветки 

← →
dimonf ©   (2003-05-28 19:45) [0]

Я создал форму и сложил в Tray, при нажатии на иконку которая лежит в Tray вывожи PopupMenu. Как мне зделать, чтобы при нажатии любой кнопки на мышке вне Popupmenu, оно закрывалось. Вообщем все как у стандартных програм!
Вот как я вывожу PopupMenu:
procedure ShowMenu(HWndMenu:THandle);
var submenu:HMENU;
p: TPoint;
begin
Menu := GetMenu(HWndMenu);
submenu := GetSubMenu(Menu,0);
GetCursorPos(p);
TrackPopupMenu(submenu, TPM_CENTERALIGN, p.x, p.y, 0, hMainWnd, 0);
end;

---

← →
Nick Denry ©   (2003-05-28 21:34) [1]

перед
setforegroundwindow(form1.handle);
> TrackPopupMenu(submenu, TPM_CENTERALIGN, p.x, p.y, 0, hMainWnd,
> 0);

затем SendMessage(form1.handle,wm_null,0,0);
пользуйся............
С уважением, NIck Denry.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.013 c