Confirmation avant de fermer une fenetre

Bonsoir,

sur l'une des fiches de mon appli, je voudrais mettre une confirmation de fermeture. c'est à dire lorsque l'utilisateur clic sur la croix, un message doit apparaitre demandant si on est bien sur de vouloir fermer cette fenetre avec dessous 2 boutons : Fermer et Annuler. Si le choix est confirmé, alors seulement on ferme la fenetre.

Quelqu'un peut il m'aider, je n'ai rien trouver pouvant m'aider en faisant une recherche sur le forum .......

merci

Bonjour,

sur l'événement OnCloseQuery de la fiche :

Code:

---

1 2 3 4 5 6 7 8 9

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose) { int answer = MessageDlg("Êtes vous certain de vouloir quitter ?",mtConfirmation,TMsgDlgButtons() << mbYes << mbNo,0); if (answer == mbYes) { CanClose = true; } else if (answer == mbNo) { CanClose = false; } }

---

Bon courage !

Eric

merci,

sauf que ça ne foctionne pas !

Que je clic yes ou no, la fenetre se ferme quand même dans les deux cas ........

Bonjour,

Ricky81 a juste fait une petite erreur sur les valeurs retournées par MessageDlg.

Il s'agit de constantes mr, et pas mb.

Le code correct est donc le suivant :

Code:

---

1 2 3 4 5 6 7 8 9

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose) { int answer = MessageDlg("Êtes vous certain de vouloir quitter ?",mtConfirmation,TMsgDlgButtons() << mbYes << mbNo,0); if (answer == mrYes) { CanClose = true; } else if (answer == mrNo) { CanClose = false; } }

---

Ou encore, pour les puristes, en une seule instruction :

Code:

---

1 2 3 4 5 6

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose) { CanClose=(MessageDlg("Êtes vous certain de vouloir quitter?", mtConfirmation, TMsgDlgButtons()<<mbYes<<mbNo,0)==mrYes); }

---

À bientôt
Gilles

Mea culpa.

Mais bizarrement je me souviens très bien avoir testé le code avant de le poster. Pourtant en reprenant le code tel quel ca ne marche plus. Mystère :lol:

Merci à tous, maintenant ça marchel super :)

Pour ma culture perso (et dans ce domaine y a encore de quoi faire) c'est quoi la différence entre les mb et les mr ?

mb (b = button), ce sont les constantes permettant d'indiquer quels boutons afficher.
mr (r = response), ce sont les constantes permettant d'indiquer quel bouton a été cliqué.

si mbYes est indiqué, le bouton Yes sera présent. Si on le clique, la fonction MessageDlg retourne mrYes.

merci, tout devient plus lumineux .....

Mon appli étant multilangue je peux aussi changer l'affichage de mbYes et mbNo en fonction de la langue sélectionnée ?

Non, malheuresement, les libellés des boutons sont pris dans le Consts.pas, et donc dépendent de la langue de Delphi.

Pour faire traduire les boutons automatiquement par la langue de Windows, il faudra utiliser Application->MessageBox.

Si tu veux être indépendant de la langue de Windows, il te faudra créer tes Form de dialogue à la main.

domage .... mais merci beaucoup :)