messagebox pdt la fermeture

Est-il possible d'afficher un messagebox lorsqu'on click sur la croix pour fermer logiciel?

inspire de: http://delphi.developpez.com/faq/?pa...oquerfermeture

Il faut que tu codes dans l'evenement onClose de ta form et ca marchera

Code:

---

1 2 3

procedure TForm1.FormClose (.....) Application.MessageBox ('Fermeture de la Form');

---

;)

ok, en fait j'aimerai afficher un messagebox. si je click sur ok le logiciel se ferme si je click sur annuler je revien au logiciel.
Dois je creer la procedure tform1.close ou je peux y acceder en double clicant sur l'space objet ( comme pour tform1.formcreate)?

ok compri

Ben en fonction de la réponse de l'utilisateur donc du code renvoyé par le message box soit tu laisse couler (si appui sur OK) soit tu rappelle le form Creat (si appui sur Annuler)
C pas possible ca?

Code:

---

1 2 3 4 5

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := MessageDlg('Etes-vous sûr de vouloir fermer ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes; end;

---