CreateMessageDialogRésolu

Question

Bonjour,

J'apprends &#224; cr&#233;er une boite de dialog  et &#224; 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&#233;ponse lorsque je click sur mon boutton??.

O&#249; pourrais-je trouver un tuto &#224; ce sujet ?.

Merci d'avance et sinc&#232;res Salutations.

japee · Accepted Answer

Sinon, de mani&#232;re simple, voici la syntaxe &#224; 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

japee · Answer

En relisant ta question, dugueclin, je m'aper&#231;ois que j'ai r&#233;pondu &#224; c&#244;t&#233;. 



Si tu veux tester la valeur retourn&#233;e, il faut le faire avant de lib&#233;rer le MessageDialog.



Il faut donc proc&#233;der ainsi :



with CreateMessageDialog('Le Message', mtWarning,[mbYes,mbAbort]) do

try

  TButton(FindComponent('Yes')).Caption := 'Supprimer';

  case ShowModal of

    mrYes:   ShowMessage('valeur retourn&#233;e: mrYes');

    mrAbort: ShowMessage('valeur retourn&#233;e: mrAbort')

    else ShowMessage('aucun bouton cliqu&#233;');

  end;

finally

  Free;

end;



Voil&#224;, voil&#224;...



Bonne prog' 



japee

CreateMessageDialog

2 réponses

Votre réponse

Discussions similaires