Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос на тему "иконка в трее" :)

max999 © (2005-11-09 15:42:00)
Ногами сразу не пинать :))

Программа на API. Добавляю иконку в трей общеизвестным способом. Она там появляеться, но после наведения на нее пропадает :( Я уже замучался искать причину... Подскажите, чего делать?

max999 (2005-11-09 17:36:00) [1]
>gdaujk ©

Огромное спасибо!!! Допустил идиотскую ошибку, уже сам понял :) Все заработало...

gdaujk (2005-11-09 17:28:00) [2]
ss2 (09.11.05 17:20) [7]

Программа на API (см. сабж). Form1 must die :-)

ss2 (2005-11-09 17:20:00) [3]
Wnd := Form1.Handle;

gdaujk (2005-11-09 17:15:00) [4]
Нет, наверное вообще вынесите эту строчку за пределы конструкции with:

MainNID.Wnd:=Wnd; with MainNID do begin ... end;

gdaujk (2005-11-09 17:11:00) [5]
По-моему проблемма в строчке:

Wnd:=Wnd;

Исправьте на:

MainNID.Wnd:=Wnd;

max999 (2005-11-09 15:51:00) [6]
WM_CREATE:
begin
// Main tray icon
MainTrayIcon:=LoadIcon(hInstance, MAKEINTRESOURCE(2000));
with MainNID do
begin
cbSize:=SizeOf(TNotifyIconData);
Wnd:=Wnd;
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage:=WM_NOTIFYTRAYICON;
hIcon:=MainTrayIcon;
szTip:=(.........);
end;
Shell_NotifyIcon(NIM_ADD, Addr(MainNID));
.......
end;

WM_DESTROY:
begin
with MainNID do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Wnd;
uID := 1;
end;
Shell_NotifyIcon(NIM_DELETE, Addr(MainNID));
...
end;

darvin (2005-11-09 15:48:00) [7]
который в трей шлеть ;)

max999 (2005-11-09 15:47:00) [8]
Какой код?

darvin (2005-11-09 15:44:00) [9]
код нужен быб ;)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »