Discussion :

[Dauphin]

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

[Ricky81]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Dauphin]

merci,

sauf que ça ne foctionne pas !

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

[Greybird]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;
   }
}

[Gilles Louïse]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ricky81]

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

[Dauphin]

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 ?

[Greybird]

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.

[Dauphin]

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 ?

[Greybird]

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.

[Dauphin]

domage .... mais merci beaucoup