CreateMessageDialog [Résolu]

cs_dugueclin
Messages postés
66
Date d'inscription
jeudi 2 septembre 2004
Dernière intervention
10 juillet 2012
- 1 avril 2005 à 16:00 - Dernière réponse : japee
Messages postés
1799
Date d'inscription
vendredi 27 décembre 2002
Dernière intervention
19 juillet 2018
- 3 avril 2005 à 19:58
Bonjour,

J'apprends à créer une boite de dialog et à chager le texte des bouttons.



with createmessagedialog (' Le Message', mtWarning,[mbYes,mbAbort]) do

begin

TBoutton(FindComponent(' Yes')).caption:='Supprimer';

ShowModal;

finally

free;

end;

end;



Case reponse of // ne marche plus

mrYes:

mrAbort:

end;

Alors, comment donner une réponse lorsque je click sur mon boutton??.

Où pourrais-je trouver un tuto à ce sujet ?.

Merci d'avance et sincères Salutations.
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
japee
Messages postés
1799
Date d'inscription
vendredi 27 décembre 2002
Dernière intervention
19 juillet 2018
- 1 avril 2005 à 22:17
3
Merci
Sinon, de manière simple, voici la syntaxe à utiliser :



if MessageDlg('Le message', mtWarning, [mbAbort, mbOk], 0) = mrOk then



ou alors, pour analyser plus finement :



case MessageDlg('Le message', mtWarning, [mbAbort, mbOk], 0) of

mrAbort: // instruction A

mrOk: // instruction B

end;



Bonne prog'



japee

Merci japee 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 86 internautes ce mois-ci

Commenter la réponse de japee
jmp77
Messages postés
1232
Date d'inscription
lundi 4 février 2002
Dernière intervention
4 octobre 2006
- 1 avril 2005 à 17:14
0
Merci
Hello,



Regarde cette superbe source de mauricio et n'oublie pas de lui laisser
un petit merci en commentaire et mets une note egalement si tu te sers
de sa source.

http://www.delphifr.com/code.aspx?id=28735

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
Commenter la réponse de jmp77
japee
Messages postés
1799
Date d'inscription
vendredi 27 décembre 2002
Dernière intervention
19 juillet 2018
- 3 avril 2005 à 19:58
0
Merci
En relisant ta question, dugueclin, je m'aperçois que j'ai répondu à côté.



Si tu veux tester la valeur retournée, il faut le faire avant de libérer le MessageDialog.



Il faut donc procéder ainsi :



with CreateMessageDialog('Le Message', mtWarning,[mbYes,mbAbort]) do

try

TButton(FindComponent('Yes')).Caption := 'Supprimer';

case ShowModal of

mrYes: ShowMessage('valeur retournée: mrYes');

mrAbort: ShowMessage('valeur retournée: mrAbort')

else ShowMessage('aucun bouton cliqué');

end;

finally

Free;

end;



Voilà, voilà...



Bonne prog'



japee
Commenter la réponse de japee

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.