Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c