| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
SisTrey [D7, WinXP]
Ку Ку © (2006-04-02 18:13:00)Я только начал изучать 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 должна появляться её иконка. Проблема в том, что иконка появляеться, но тут же проподает через несколько секунд и форма тоже, а програма при этом продолжает работать её видно в диспетчере задач правдо только в процеччах. Вопрос: почему пропадает иконка и что я делаю не так ?
Leonid Troyanovsky (2006-04-02 19:41:00) [1]
> Ку Ку (02.04.06 18:30) [2]
> Всё сам разобрался.
Не верю.
--
Regards, LVT.
Ку Ку (2006-04-02 18:30:00) [2]Всё сам разобрался.
Ку Ку (2006-04-02 18:21:00) [3]Извиняюсь икнока проподает при наведении указателя мыши на sistrey.
| |
