Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Вниз

Народ, как определить что у меня курсор не на 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 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.007 c
3-100538
khvalera
2003-07-10 20:05
2003.07.31
Paradox


4-101036
Asteroid
2003-05-29 02:56
2003.07.31
WM_MEASUREITEM глючит?


1-100733
Alec
2003-07-19 13:45
2003.07.31
Настройка в Delphi


1-100736
Nucl
2003-07-19 12:38
2003.07.31
monochrome mode


8-100829
Ильдар
2003-04-05 13:04
2003.07.31
Слушаем радио





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский