Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.07 c
2-1143471867
Setor
2006-03-27 19:04
2006.04.16
Как записать данные в начало файла


15-1143020600
Кручен-Верчен
2006-03-22 12:43
2006.04.16
Не получается решить интегралы.


2-1143292789
Дмитрий_177
2006-03-25 16:19
2006.04.16
Выравнивание по фотме панелей


15-1142841744
Layner
2006-03-20 11:02
2006.04.16
Прослушал тут курсы C#...


6-1136260467
ZLOFENIX
2006-01-03 06:54
2006.04.16
Сокеты