Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Вниз

System Tray 


User_OKA   (2001-11-28 15:25) [0]

Вычитал в умной книге как разместить значок на SystemTray.
Никак не могу добиться, чтобы при щелчке на иконке появилось
меню TPopupMenu. Вся загвоздка в том, что нет связи иконки с
моим приложением и не обрабатывается процедура:

Procedure Tform1.WMICON(var msg: TMessage);

хотя свойство объекта

nidata: TNotifyIconData
nidata.uCallBackMessage:=WM_MYTRAYNOTIFY;
где
Const
WM_MYTRAYNOTIFY=WM_USER + 123;

Так написано в книге, но по всей видимости что-то не так.
В настоящее время пользуюсь RXLib, но охота разобраться с
проблемой. Помогите, кто может.



Delirium   (2001-11-28 15:43) [1]

www.master-brain.boom.ru
У меня есть оч.простой компонентик - посмотри сам всё поймёшь




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.032 c
1-9176            programmer1           2002-02-12 10:22  2002.03.04  
Смысл типа TVarBytesField


1-9218            avk                   2002-02-15 11:33  2002.03.04  
ListBox переход на следующую строку...


1-9170            ProstoChaynik         2002-02-14 09:25  2002.03.04  
цвет TButton


1-9187            Termik                2002-02-14 15:14  2002.03.04  
Отладчик Delphi


3-9049            sd                    2002-02-06 07:47  2002.03.04  
Возврат значений из скрипта.