MessageBox

Messages postés
24
Date d'inscription
dimanche 28 avril 2002
Statut
Membre
Dernière intervention
11 novembre 2002
- - Dernière réponse : JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
- 28 mars 2008 à 15:04
salut,
Je voudrais ajouter une boite de dialogue a mon programme pour qu'elle demande à l'utitlisateur si il veux vraiment quitter le programme ( il repond en cliquant sur le bouton oui ou sur le bouton non).
Comment faire ?
merci d'avance.
ak47.
Afficher la suite 

6 réponses

Messages postés
871
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
1
0
Merci
Salut !

Je sais pas si t'as bien cherché dans le forum ou même dans l'aide de Delphi avant de poser cette question... Mais bon, c'est pas grave, voici la réponse :

Tu crées un évènement OnCloseQuery pour ta form principale, dans lequel tu mets :

CanClose := False; //Empêche l'appli de se fermer

If MessageDlg('Etes-vous sûr de vouloir quitter ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes Then Application.Terminate;
//pose la question et ferme si on répond oui.

C'est juste ça !

Bonne prog' !
Bestiol.
Commenter la réponse de cs_Bestiol
Messages postés
24
Date d'inscription
dimanche 28 avril 2002
Statut
Membre
Dernière intervention
11 novembre 2002
0
Merci
-------------------------------
Réponse au message :
-------------------------------

Salut !

Je sais pas si t'as bien cherché dans le forum ou même dans l'aide de Delphi avant de poser cette question... Mais bon, c'est pas grave, voici la réponse :

Tu crées un évènement OnCloseQuery pour ta form principale, dans lequel tu mets :

CanClose := False; //Empêche l'appli de se fermer

If MessageDlg('Etes-vous sûr de vouloir quitter ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes Then Application.Terminate;
//pose la question et ferme si on répond oui.

C'est juste ça !

Bonne prog' !
Bestiol.

Merci beaucoup
Commenter la réponse de cs_ak47
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
24
0
Merci
Ou de façon plus concise :
CanClose :MessageDlg('Etes-vous sûr de vouloir quitter ?', mtConfirmation, [mbYes, mbNo], 0) mrYes;

Bestiol : il n'est pas utilise d'appeler Application.Terminate puisque la fermeture de la fiche principale de l'application a pour conséquence de ... terminer l'application.
CQFD
May Delphi be with you.
Delphi advanced
Commenter la réponse de cs_Delphiprog
Messages postés
871
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
1
0
Merci
Merci DelphiProg !! C'est vrai que ton code est beaucoup plus concis !! Je l'avais déjà vu qque part, mais j'ai en fait gardé l'habitude de mes premiers pas en programmation !

Bestiol.
Commenter la réponse de cs_Bestiol
Messages postés
4
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
28 mars 2008
0
Merci
bonjour,
je veut que lorsque j'appuis sur une button elle me renvoie une chaine de caractere dans un edit et lorsque j'appuis une autre fois je veut qu'elle m'affiche une message que le chaine est affiché
Commenter la réponse de cs_tuna
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
12
0
Merci
Bonjour,

Au revoir.
Commenter la réponse de JulioDelphi