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

← →
max999 (2005-11-09 15:42) [0]

Ногами сразу не пинать :))

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

← →
darvin © (2005-11-09 15:44) [1]

код нужен быб ;)

← →
max999 (2005-11-09 15:47) [2]

Какой код?

← →
darvin © (2005-11-09 15:48) [3]

который в трей шлеть ;)

← →
max999 (2005-11-09 15:51) [4]

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;

← →
gdaujk © (2005-11-09 17:11) [5]

По-моему проблемма в строчке:

Wnd:=Wnd;

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

MainNID.Wnd:=Wnd;

← →
gdaujk © (2005-11-09 17:15) [6]

Нет, наверное вообще вынесите эту строчку за пределы конструкции with:

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

← →
ss2 (2005-11-09 17:20) [7]

Wnd := Form1.Handle;

ss2 (09.11.05 17:20) [7]

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

← →
max999 (2005-11-09 17:36) [9]

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