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

Вниз

Как с помощью RxtrayIcon свернуть программу в трей и обратно??   Найти похожие ветки 

← →
ТехникПТО ©   (2005-03-15 20:31) [0]

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

---

← →
ламер_ ©   (2005-03-15 21:06) [1]

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

---

← →
ламер_ ©   (2005-03-15 21:18) [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:53) [3]

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

---

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

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

Наверх

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