VPF::Как скрыть popup меню над иконкой в системном трее

hawkins

Дата 3.12.2006, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 8.9.2003

Репутация: нет
Всего: нет

Всем привет!
У программы в трее есть иконка, по клику правой кнопкой мыши на иконке показывается popupmenu. Если окно программы развернуто и вызывается это меню из трея, то после клика мышью по чужому окну или при нажатии искейпа, это меню сразу исезает. Но если то же самое сделать когда окно программы минимизированно, то popupmenu исчезает
только через 10-15 сек.
Так вот вопрос, как заставить это меню исчезать сразу после активизации чужого окна ?

Sunvas

Дата 3.12.2006, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

PostMessage(popupmenu.Handle,WM_CLOSE,0,0);

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

hawkins

Дата 3.12.2006, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 8.9.2003

Репутация: нет
Всего: нет

WM_CLOSE не помогло, но
нашел другое решение, перед вызовом Popupmenu1.Popup
посылаю сообщение WM_ACTIVATE, код где-то такой получается :

Код


procedure TForm1.IconMouse(var Msg: TMessage);
// обработчик событий для иконки в трее
 var p: TPoint;
 i:integer;
begin
 GetCursorPos(p); // Запоминаем координаты курсора мыши
 case Msg.LParam of // Проверяем какая кнопка была нажата

  WM_RBUTTONUP: //Действия, выполняемый по одинарному  щелчку правой кнопки мыши
    begin
     Application.BringToFront;
     if not Form1.Active then
     SendMessage(Form1.Handle, WM_ACTIVATE,WA_ACTIVE,0);
     Popupmenu1.Popup(p.X, p.Y); // меню в трее        
    end;
 end;

end;

Вообще сначала пробовал посылать сообщение через PostMessage, но тогда если сразу
после минимизации окна вызвать меню, то меню появляется и сразу исчезает (видимо
сообщение доходит до окна уже после появления меню), а при дальнейших вызовах уже не пропадает срузу.

Snowy

Дата 4.12.2006, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

http://forum.vingrad.ru/index.php?showtopic=85755

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »