Форум: "Начинающим";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];
ВнизВопрос на тему "иконка в трее" :) Найти похожие ветки
← →
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;
← →
gdaujk © (2005-11-09 17:28) [8]ss2 (09.11.05 17:20) [7]
Программа на API (см. сабж). Form1 must die :-)
← →
max999 (2005-11-09 17:36) [9]>gdaujk ©
Огромное спасибо!!! Допустил идиотскую ошибку, уже сам понял :) Все заработало...
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.015 c