| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

System Tray Icon Иконка сваливается при наведении мышкой [D6]

QUE ©   (2003-03-24 13:25:00) 

Привет всем !!! Помогите разобраться !!!
Проблема такая:
1. Создаю окно
2. В function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam): LResult; stdcall;обрабатываю сообщения;
3. Иконка появляется, но при наведении на нее мышкой она пропадает, а окно остается жить, не теряя свою работоспособность ...

Вот код ...


function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam): LResult; stdcall;
Begin
case msg of
wm_destroy :
Begin
Shell_NotifyIcon(NIM_DELETE,@FIconData);
postquitmessage(0);
Result:=0;
exit;
End;
wm_Create :
Begin
With FIconData do
begin
cbSize:=SizeOf(FIconData);
Wnd:=Wnd;
uID:=100;
uFlags:=NIF_MESSAGE+NIF_ICON+NIF_TIP;
uCallbackMessage:=WM_USER+1;
hIcon:=LoadIcon(0,idi_application);
StrPCopy(szTip,"Hot Key")
end;
Shell_NotifyIcon(NIM_ADD,@FIconData);
Result:=0;
exit;
End
else Result:=DefWindowProc(wnd,msg,wparam,lparam)
end;
End;


---

vidiv   (2003-03-25 04:42:00) [1]

QUE не ты один такой....

---

QUE   (2003-03-24 14:21:00) [2]

Блин преогромнейшее спасибо .... Ламер блин .... вонючий ... Глаза на затылке ...
Сенкс прибольшой ....

---

nikkie   (2003-03-24 14:06:00) [3]

Wnd:=Wnd;
многозначительно...

---

Наверх