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




Вниз

Tray & Callback Messages 


RaZEr   (2001-12-27 06:30) [0]

const
WM_TRAYMSG = WM_USER + 138;
...
procedure TrayIconMsg (var M : TMessage); message WM_TRAYMSG;
...
procedure TMainWnd.TrayIconMsg (var M : TMessage);
begin
IF M.LParam = WM_RBUTTONDOWN THEN Label1.Caption:="Yo!";
end;

А сам tray :

TrayHint:="My Tray !";

TrayIcon:=TIcon.Create;
ExeRoot:=ExtractFilePath(ParamStr(0));
TrayIcon.LoadFromFile(ExeRoot+"tray.ico");

WITH TrayStruct DO
begin
cbSize:=SizeOf(TrayStruct);
Wnd:=MainWnd.Handle;
uID:=UINT(self);
uFlags:=NIF_ICON;
uCallbackMessage:=WM_TRAYMSG;
hIcon:=TrayIcon.Handle;
StrPLCopy(szTip,Pchar(TrayHint),SizeOf(szTip));
end;
Shell_NotifyIcon(NIM_ADD,@TrayStruct);

Ну так вот , никакого "Yo!" я в Label"е не вижу как бы я не крутил и не тыкал мышью .



Виктор Щербаков   (2001-12-27 09:33) [1]

uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;



RaZEr   (2001-12-28 06:15) [2]

Спасибо .




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




Наверх





Память: 0.71 MB
Время: 0.05 c
14-52666          MJH                   2001-11-18 13:56  2002.01.17  
nVidia Drivers 21.88


1-52589           vlv                   2001-12-28 14:51  2002.01.17  
Иерархическая структура


3-52501           ripp                  2001-12-15 15:40  2002.01.17  
Повтор. Помогите!


6-52628           Labert                2001-10-22 16:13  2002.01.17  
Нужно узнать логин в Windows


3-52460           ol                    2001-12-14 10:33  2002.01.17  
SQL: вложенный запрос под MSSQL