[Delphi] Zamknięcie programu

Jak zrobić takie coś, że jak się kliknie na X żeby zamknęło program została wykonana procedura, a program się nie zamknął?? <_<

---

Zdarzenie OnCloseQuery
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin  //Tu Jakas Procedura  CanClose:= False; end;
EDIT//Chyba że chodzi o procedure FormClose to:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var  Close: TCloseAction; begin  //Tu Jakas Procedura  Close:=caNone;  FormClose(Sender, Close);  //Action:= caNone;  CanClose:= False; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin  ShowMessage('Foem Close'); end;
Użytkownik kAzek edytował ten post 16 luty 2006, 19:11

Zdarzenie OnCloseQuery
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin  //Tu Jakas Procedura  CanClose:= False; end;

W OnClose:Application.Run;

---

W OnClose:Application.Run; Lub:Action:=caNone;

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl