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 1792 Messages postés vendredi 27 décembre 2002Date d'inscription 12 novembre 2016 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 

3 réponses

Répondre au sujet
japee 1792 Messages postés vendredi 27 décembre 2002Date d'inscription 12 novembre 2016 Dernière intervention - 1 avril 2005 à 22:17
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
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
Utile
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 1792 Messages postés vendredi 27 décembre 2002Date d'inscription 12 novembre 2016 Dernière intervention - 3 avril 2005 à 19:58
0
Utile
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.