В трее не закрывается PopupMenu при потере фокуса

29.05.2012, 18:08. Показов 1771. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

После сворачивания в трей проги, кликаю правой кнопкой мыши по иконке(в трее) вызывается контекстное меню: PopupMenu1.Popup(P.X, P.Y); Но при потере фокуса, popupmenu не исчезает.
Нашел в интернете процедуру, но не могу понять как и где ее реализовать:

Delphi

procedure TForm1.WndProc(var Msg : TMessage);
 var
   p : TPoint;
 begin
   case Msg.Msg of
     WM_USER + 1:
     case Msg.lParam of
       WM_RBUTTONDOWN: begin
          SetForegroundWindow(Handle);
          GetCursorPos(p);
          PopupMenu1.Popup(p.x, p.y);
          PostMessage(Handle, WM_NULL, 0, 0);
       end;
     end;
   end;
   inherited;
 end;

Если кто сталкивался, подскажите куда ее вставить?

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.05.2012, 18:08

Ответы с готовыми решениями:

Вычисления при потере фокуса
Как запрограммировать вычисление на потерю фокуса? Когда я нажимаю на закрытие или другие кнопки...

Переход на страницу при потере фокуса
Привет всем. Подскажите пожалуйста следующее. Вот код: <form class="forma" method="post"...

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

Сменить цвет при потере фокуса
При нажатии на инпут1 к границе инпута1 применяется красный цвет,но при нажатии на инпут2, инпут1...

	29.05.2012, 18:08

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.05.2012, 18:08

Помогаю со студенческими работами здесь

Событие при потере фокуса поля
Есть ли такое событие при потере фокуса?? в visual studio s# ultimate 2012 не нашёл такого!

Действие при потере фокуса окна
Всем привет. Пишу программу-тесты на С++. Для того, чтобы отвечали на вопросы честно, появилась...

Закрыть форму при потере фокуса
Простое применение Private Sub Form_LostFocus() DoCmd.Close acForm, Me.Name End Sub выдаёт...

Как приостановить анимацию при потере фокуса
Здравствуйте, форумчане! Помогите, пожалуйста, разобраться. Вот, например, у меня на главной форме...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх