Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

System Tray Icon Иконка сваливается при наведении мышкой   Найти похожие ветки 

← →
QUE ©   (2003-03-24 13:25) [0]

Привет всем !!! Помогите разобраться !!!
Проблема такая:
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;


---

← →
nikkie ©   (2003-03-24 14:06) [1]

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

---

← →
QUE ©   (2003-03-24 14:21) [2]

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

---

← →
vidiv ©   (2003-03-25 04:42) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c