Почему не работают события popupmenu в trayicon

← →
nester © (2004-03-27 00:15) [0]

Положил на форму trayicon(BapTrayIcon), popupmenu, в общем настроил их, привязал попап к trayicon.
Запускаю, щелкаю правой кнопкой на трайиконе попапменю появляется, затем щелкаю по любому из пунктов - но ни одно событие не срабатывает ни OnPopup ни onmenuitem.
Для чистоты эксперимента привязываю это же меню к форме - все работает замечательно, все события срабатывают. Как сделать чтобы сработали с трайиконы?
Заранее благадарствую
У меня Delphi7 KOLMCK 1.91 BapTrayIcon

← →
4kusNick © (2004-04-11 22:21) [1]

Попробуйте использовать KOLTrayIcon. Мне кажется, что он ни чуть не хуже. Для вызова используйте событие OnMouse:

procedure TMainFrm.TIconMouse(Sender: PObj; Message: Word);
var MousePos: TPoint;
begin
IF Message = WM_LBUTTONDOWN then //Реакция на лефтклик
IF Form.WindowState = wsNormal then
Form.WindowState:= wsMinimized
else
Form.WindowState:= wsNormal;
IF Message = WM_RBUTTONDOWN then //Реакция на райтклик
begin
GetCursorPos(MousePos);
PMenu.Popup(MousePos.X, Mousepos.Y) //Всплытие popupmenu
end
end;

Попробуйте использлвать событие OnPopup в BapTrayIcon.

Пример конечно плохой, но я надеюсь, что идею Вы поняли.
Удачи!

Почему не работают события popupmenu в trayicon Найти похожие ветки