Utilisation de messageDlg

**Ludovic Barry** · 17/04/2014, 18h44

salut, je veux exécuter un messageDlg avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
if edtMat2.text='' then
     begin
          showMessage('Veuillez choisir un champs');
          exit; //sortir de l instruction
       end
  else
      begin
          begin
          if Dialogs.MessageDlg('Vous allez supprimer un champ important.  Êtes-vous sur?',
          mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then

On me demande de faire une conversion au niveau de l'argument no 5. Mon champ edtMat2 reçoit un entier(integer) mais je ne sais comment le convertir. Je crois que le problème vient de la. Comment le résoudre? Merci pour votre aide.

**tourlourou** · 17/04/2014, 20h42

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyInteger := StrToInt( edtMat2.Text );

voir aussi TryStrToInt et StrToIntDef

**Nullosse** · 18/04/2014, 00h31

hello barson,

tu dis :

On me demande de faire une conversion au niveau de l'argument no 5

qui je pense n'a pas de rapport avec ce que tu dis après :

Mon champ edtMat2 reçoit un entier(integer) mais je ne sais comment le convertir.

ton premier problème vient du fait que tu as oublié de mettre le titre dans le Messagedlg. Si j'ai bien compris tu veux utiliser la syntaxe à 6 éléments :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
function MessageDlg(
  const aCaption: String;
  const aMsg: String;
  DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons;
  HelpCtx: LongInt;
  DefaultButton: TMsgDlgBtn
):Integer;