Народ, как определить что у меня курсор не на PopupMenu???
dimonf © (2003-05-28 19:45:00)
Я создал форму и сложил в 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:00) [1]
перед
setforegroundwindow(form1.handle);
> TrackPopupMenu(submenu, TPM_CENTERALIGN, p.x, p.y, 0,
hMainWnd,
> 0);
затем
SendMessage(form1.handle,wm_null,0,0);
пользуйся............
С уважением, NIck Denry.
Наверх 
ЧАТ |
Орешник |
|
