Как свернуть в Tray

[SeRhy]

Подскажите пожалуйста как при сыертывании приложения заставить свертатся его в tray
Зарание спасибо

[kommunist]

если есть компонент RxTrayIcon из библиотеки RxLib тогда можно так

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

procedure TForm1.RxTrayIcon1Click(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
Application.Restore; 
SetForeGroundWindow(Application.MainForm.Handle); 
RxTrayIcon1.Hide; 
end;

Твоя тема уже рассматривалась:http://programmersforum.ru/showthread.php?t=729

p.s.а вообще компоненты для работы с треем есть здесь
http://decoding.narod.ru/download/co...tray/tray.html