Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.17;
Скачать: CL | DM;

Вниз

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]

Спасибо .



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.006 c
7-52674
UsBall
2001-09-10 00:34
2002.01.17
Воспроизведение AVI - а если хочется ручками прокрутить????


14-52662
Dima-k17
2001-11-23 09:56
2002.01.17
(1)Windows XP + (2)Delphi 5


3-52483
Yanker
2001-12-04 00:01
2002.01.17
Альтернатива BDE


1-52590
Д_Россиев
2001-12-29 13:25
2002.01.17
RX для D6


14-52639
Дремучий
2001-11-21 22:45
2002.01.17
Господа, личные лoготипы (гербы/эмблемы) имеются?