Скрыть PopUp при потере фокуса
Автор Сообщение
all__ Не на форуме
Админ
*******

Сообщений: 855
Зарегистрирован: 01.2010
Сообщение: #1
Скрыть PopUp при потере фокуса
Столкнулся с тем, что иконка моего приложения в трее выдает меню, которое не исчезает пока по ней не кликнешь, выбрав один из пунктов меню...

А хотелось, чтобы меню исчезало при потере фокуса, решение оказалось простое, но времени на его поиски убито не мало.

Чтобы меню исчезало при потере фокуса, пишем всего одну строку в стандартное событие OnPopup компонента TPopupMenu
Код:
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  SetForegroundWindow(Form1.Handle);
end;





Лучшая благодарность - "Мне нравится", +1 или Like! Вверху страницы.
18.09.2010 9:21
Вебсайт Найти все сообщения Цитировать это сообщение
Создать ответ