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

SisTrey   Найти похожие ветки 

← →
Ку Ку   (2006-04-02 18:13) [0]

Я только начал изучать WinApi. Решил попробовать поместить иконку своего приложения в sistrey. Написал так же как написанно в книге
вот исходный код

procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnDeactivate:=FormDeactivate;
end;

procedure TForm1.FormDeactivate(Sender: TObject);
begin
 FHandle :=AllocateHWnd(WndProc) ;
 HIconl:=CopyIcon(Application.Icon.Handle);
 with noIconData do begin
 cbSize:=Sizeof(TNotifyIconData);
 uID:=0;
 UFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
 SzTip:="SlideShow";
 HIcon:=HIconl;
 uCallBackMessage:=Ico_Massage;
 end;
 Shell_NotifyIcon(NIM_ADD,@noIconData);
 Form1.Hide;
end;

При потере фокуса програмой, окошко должно пропадать, и в sistrey должна появляться её иконка. Проблема в том, что  иконка появляеться, но тут же проподает через несколько секунд и форма тоже, а програма при этом продолжает работать её видно в диспетчере задач правдо только в процеччах. Вопрос: почему пропадает иконка и что я делаю не так ?

---

← →
Ку Ку   (2006-04-02 18:21) [1]

Извиняюсь икнока проподает при наведении указателя мыши на sistrey.

---

← →
Ку Ку   (2006-04-02 18:30) [2]

Всё сам разобрался.

---

← →
Leonid Troyanovsky ©   (2006-04-02 19:41) [3]

> Ку Ку   (02.04.06 18:30) [2]
> Всё сам разобрался.


Не верю.

--
Regards, LVT.

---

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

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



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