Почему не работают события popupmenu в trayicon
nester © (2004-03-27 00:15:00)
Положил на форму trayicon(BapTrayIcon), popupmenu, в общем
настроил их, привязал попап к trayicon.
Запускаю, щелкаю правой кнопкой на трайиконе попапменю
появляется, затем щелкаю по любому из пунктов - но ни одно событие
не срабатывает ни OnPopup ни onmenuitem.
Для чистоты эксперимента привязываю это же меню к форме - все
работает замечательно, все события срабатывают. Как сделать чтобы
сработали с трайиконы?
Заранее благадарствую
У меня Delphi7 KOLMCK 1.91 BapTrayIcon
4kusNick (2004-04-11 22:21:00) [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.
Пример конечно плохой, но я надеюсь, что идею Вы поняли.
Удачи!
Наверх 
ЧАТ |
Орешник |
|
