Главная страница
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.46 MB
Время: 0.027 c
14-1096344369
КаПиБаРа
2004-09-28 08:06
2004.10.17
Настройка оперы


4-1094870882
_TEST_
2004-09-11 06:48
2004.10.17
Получить иконку окна


4-1095111547
Jetus
2004-09-14 01:39
2004.10.17
Набор тел.номера модемом


14-1096008190
CyberProgrammer
2004-09-24 10:43
2004.10.17
Народ строчна нужен компонент типа RichEidt`а с возможностью


3-1095415842
Mr
2004-09-17 14:10
2004.10.17
DLL для Добавления/Изменения/Удаления записей в своей БД