Как связать 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); // чтобы меню закрывалось автоматом

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