Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: 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 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
3-1095725187
ДОнской
2004-09-21 04:06
2004.10.17
Операция недопустима в данном контексте - ado


1-1096996630
Дубинин Алексей
2004-10-05 21:17
2004.10.17
Команды в режиме DesignTime


1-1096646043
Homa_Programer
2004-10-01 19:54
2004.10.17
Перенос текста на новую страницу...


14-1096466634
gn
2004-09-29 18:03
2004.10.17
Конкурс для вирусописателей


4-1095152969
-SeM-
2004-09-14 13:09
2004.10.17
LoadLibrary