Как сделать чтобы прога не закрывалась

[vitalik007]

Как мне сделать чтобы при нажатии кнопки закрыть(крестика) прога не закрывалась.А например скрывалась в трей.
Как скрыть в трей писать НЕ НАДО!!

[Yurk@]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.MessageBox('Вы нажали кнопку ЗАКРЫТЬ', 'Внимение',0);
Abort;
end;

[vitalik007]

procedure TuserForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.ShowMainForm:=false;
abort;
end;


вот я написал
не работает

[Yurk@]

... чтобы при нажатии кнопки закрыть(крестика) прога не закрывалась...

А она и так не закрывается!
Можешь даже

application.ShowMainForm:=false;

убрать!
Допиши только действие (напр: скрытие в трей) и всё!

[vitalik007]

Сообщение от Yurk@

А она и так не закрывается!!

Так мне надо чтобы скрывалось в трей при закрытии

убрал все равно не работает

[mihali4]

Сделайте так:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
Hide;
//здесь процедура установки иконки в трей
end;

[Terran]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagedlg('завершить программу?',mtconfirmation, [mbyes, mbno],0)=mryes
then canclose:=true
else canclose:=false;
end;

[Yurk@]

убрал все равно не работает

А что должно работать ???
У тя же вопрос:

чтобы ... прога не закрывалась ... Как скрыть в трей писать НЕ НАДО

Так как она должна реагировать ????

P.S. А если

Так мне надо чтобы скрывалось в трей при закрытии

то:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);   
begin   
Abort;   
Hide;   
//процедура установки иконки в трей
end;

[vitalik007]

все сделал!!

Прав был Mihali4