Скачать: CL | DM;

Как связать TrayIcon c PopupMenu в KOL?   Найти похожие ветки 

← →
StRaNNiK   (2006-07-24 10:29) [0]

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

---

← →
mdw ©   (2006-07-25 13:39) [1]

примерно так:
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;

---

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

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

---

← →
Моторокер   (2006-09-26 17:39) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.047 c