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

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

PopUp Menu [D6, WinXP]


dkDimon ©   (2002-12-08 01:13:00) 

Мастера, как можно убрать Popup Menu. То есть оно всплывает по нажатию правой кнопки мыши, а по нажатию левой вне области меню, нужно чтобы оно убралось. Само не убирается (в Систем трее).


Юрий Зотов   (2002-12-08 02:00:00) [1]

Показывать меню, например, так:

var
P: TPoint;
...
SetForegroundWindow(Handle);
GetCursorPos(P);
PopupMenu1.Popup(P.X, P.Y);
PostMessage(Handle, WM_NULL, 0, 0)

Здесь Handle относится к тому окну, которое получает сообщения "от иконки". Обычно это главная форма приложения.


Наверх

Титульная страница Поиск, карта сайта Написать письмо