Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.03 c
1-1110744759
DremLIN
2005-03-13 23:12
2005.03.27
Delphi, CLX-проект, handle


3-1109678790
Denmin
2005-03-01 15:06
2005.03.27
Как создать ХП в БДЕ, на базах парадокса?


3-1109667661
kivadim
2005-03-01 12:01
2005.03.27
Отображение в отчете связи один-ко-многим


1-1110614798
Timofey
2005-03-12 11:06
2005.03.27
Рисунок на TButton


1-1110645589
Muh
2005-03-12 19:39
2005.03.27
Как изменить цвет шрифта в StrinGrid?