Главная страница
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.026 c
3-1109786582
Arazel
2005-03-02 21:03
2005.03.27
Могу ли Я их использовать в компонентах Query для создание mdf


3-1109581335
cbandit
2005-02-28 12:02
2005.03.27
between не магу понять почему не работает


1-1110964851
PVOzerski
2005-03-16 12:20
2005.03.27
Как бы управлять порядком уничтожения компонентов?


8-1102062177
-=SS=-
2004-12-03 11:22
2005.03.27
Проблемы с mp3


14-1110377152
Kerk
2005-03-09 17:05
2005.03.27
500 посвящается....