Message de fermeture

Bonjour,
Voilà je souhaiterais afficher un message de confirmation de fermeture de l'application au moment où l'utilisateur click sur le bouton fermer de la barre de titre (La croix)....
j'ai implémenté ce qui suit:

Code:

---

1 2 3 4 5 6 7

Var rep:integer; begin rep:=MessageBox(handle,'Etes-vous sûr de vouloir quitter l''application?','Avertissement',MB_OKCANCEL or MB_OK); if (rep=IDOK) then application.Terminate; end;

---

Le problème est que ne n'ai pas su l'intégrer à l'événement adéquat, car si j'implémente ces quelques lignes au niveau de l'événement ONCLOSE de la fiche principale , l'application se ferme quelque soit la réponse donnée par l'utilisateur ( en cliquant sur : OK aussi bien que sur ANNULER)

Alors comment procéder pour que l'annulation de la fermeture de l'application ne soit opérationnelle si l'utulisatur clique sur le bouton ANNULER du MessageBox.

Merci +++++++++:D

OnClose=en train de se fermer...


Utilise plutôt ton code dans OnCloseQuery et invalide CanClose selon ton besoin

Au risque de passer pour une ............. :oops:
C'est bon j'ai repris mon code au niveau du: OnCloseQuery mais je n'ai pas su utiliser le : CanClose, d'ailleurs ne ne sais même pas comment l'utiliser???

Merci

Quelque chose comme :

Code:

---

1 2 3 4 5

procedure TForm1.onCloseQuery(Sender : TObject; var CanClose : Boolean); begin CanClose:=(MessageBox(handle,'Etes-vous sûr de vouloir quitter l''application?','Avertissement',MB_OKCANCEL or MB_OK)=IDOK); end;

---

Merci c'est bon:king: