CreateMessageDialog [Résolu]

cs_dugueclin 66 Messages postés jeudi 2 septembre 2004Date d'inscription 10 juillet 2012 Dernière intervention - 1 avril 2005 à 16:00 - Dernière réponse : japee 1798 Messages postés vendredi 27 décembre 2002Date d'inscription 1 juillet 2018 Dernière intervention
- 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 1798 Messages postés vendredi 27 décembre 2002Date d'inscription 1 juillet 2018 Dernière intervention - 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é 83 internautes ce mois-ci

Commenter la réponse de japee
jmp77 1232 Messages postés lundi 4 février 2002Date d'inscription 4 octobre 2006 Dernière intervention - 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 1798 Messages postés vendredi 27 décembre 2002Date d'inscription 1 juillet 2018 Dernière intervention - 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.