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

Почему не работают события 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.

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

---

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

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



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