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

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

Как с помощью RxtrayIcon свернуть программу в трей и обратно?? [D6, WinXP]

ТехникПТО ©   (2005-03-15 20:31:00) 

Почему то у меня это получаеться как то "криво" :( подскажите как сделать правильно?

---

ТехникПТО   (2005-03-15 21:53:00) [1]

пасиб.. попробую

---

ламер_   (2005-03-15 21:18:00) [2]

TForm1=class(TForm)
....
private
   { Private declarations }
   procedure ApplicationMinimize(Sender : TObject);
   procedure ApplicationRestore(Sender : TObject);
....
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    Application.OnMinimize := ApplicationMinimize;
    Application.OnRestore := ApplicationRestore;
    ShowWindow(Application.Handle, SW_HIDE);
end;
procedure TForm1.RxTrayIconDblClick(Sender: TObject);
begin
    Application.Restore;
    Application.BringToFront;
end;

procedure TForm1.ApplicationMinimize(Sender : TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;

procedure TForm1.ApplicationRestore(Sender : TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;
...
Взято из FAQ(или чего-то похожего) по rxLib

---

ламер_   (2005-03-15 21:06:00) [3]

А в чем кривость ?

---

Наверх