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

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

Как связать TrayIcon c PopupMenu в KOL? [Delphi, Windows]

StRaNNiK ©   (2006-07-24 10:29:00) 

Как связать TrayIcon c PopupMenu  в KOL? Что-то свойства у TrayIcon такого не нашел :(

---

Моторокер   (2006-09-26 17:39:00) [1]

Нашёл:
     SetForegroundWindow(Form.Handle); // чтобы меню закрывалосьавтоматом
     GetCursorPos(p); // узнаем позицию курсора
     popMenu.PopUp(p.x, p.y); // выводим в этой позиции меню
     PostMessage(Form.Handle, WM_NULL, 0, 0); // чтобы меню закрывалось автоматом

---

Моторокер   (2006-08-08 16:49:00) [2]

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

---

mdw   (2006-07-25 13:39:00) [3]

примерно так:
procedure TJMCtrlMainForm.TrayIconMouse(Sender: PObj; Message: Word);
var P: TPoint;
begin
   case Message of
     WM_RBUTTONUP: begin
       GetCursorPos( P );
       pmMain.PopupEx( P.x, P.y );
     end;
   end;
end;

---

Наверх