Discussion :

[Pill_S]

Bonsoir à tous,

en manipulant la fonction MessageDlg(...), je suis tombé sur un problème assez étrange: la valeur de retour de cette fonction ne correspond pas avec ce qui est indiqué dans la documentation !

J'ai réalisé une petite fonction de teste, la voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  function Test():Boolean;
    var
      i:Integer;
    begin
      i:=MessageDlg('Test','Appuyez sur qqchose:', mtInformation, mbYesNoCancel, 0);
 
      case i of
        mrYes:    ShowMessage('Vous avez cliqué sur Yes !');
        mrNo:     ShowMessage('Vous avez cliqué sur No !');
        mrCancel: ShowMessage('Vous avez cliqué sur Cancel !');
        else      ShowMessage('Sur quoi t''as cliqué ??! Valeur reçue='+IntToStr(i));
      end;
  end;

Je ne sais pas chez vous, mais chez moi, le seul bouton qui est reconnu est le "Cancel".... Les deux autres renvoient des valeurs inconnue (Yes: val=3 et No: val=4), et quand on ferme la boite de dialogue par la croix en haut à droite, je reçois la valeur 0.

Je pourrais bien tester directement ces valeurs, mais ce serait pas très beau... Pourquoi diable les constantes ne correspondent-elles pas ??!
(mrYes vaut 6, mrNo je sais pas)

Merci d'avance !

PS:

...
MessageDlg renvoie la valeur du bouton sélectionné par l'utilisateur. Le tableau suivant liste les valeurs TMsgDlgBtn pour chaque type de bouton pouvant apparaître dans la boîte de message, et la valeur correspondante qui est renvoyée si l'utilisateur sélectionne ce bouton :

Valeur TMsgDlgBtn Valeur renvoyée correspondante

mbOk mrOk
mbCancel mrCancel
mbYes mrYes
mbNo mrNo
mbAbort mrAbort
mbRetry mrRetry
mbIgnore mrIgnore

[jouaud bernard]

Salut,

essai

i:=MessageDlg('Test',mtInformation, mbYesNoCancel, 0);

[NoisetteProd]

Salut !

Chez moi, ces deux codes fonctionnent :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  i:=MessageDlg('Test',mtInformation, mbYesNoCancel, 0);
  case i of
    mrYes:    ShowMessage('Vous avez cliqué sur Yes !');
    mrNo:     ShowMessage('Vous avez cliqué sur No !');
    mrCancel: ShowMessage('Vous avez cliqué sur Cancel !');
    else      ShowMessage('Sur quoi t''as cliqué ??! Valeur reçue='+IntToStr(i));
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
begin
  i := MessageBox(0, 'Appuyez sur qqchose:', 'test', MB_ICONWARNING or MB_YESNOCANCEL);
  case i of
    mrYes:    ShowMessage('Vous avez cliqué sur Yes !');
    mrNo:     ShowMessage('Vous avez cliqué sur No !');
    mrCancel: ShowMessage('Vous avez cliqué sur Cancel !');
    else      ShowMessage('Sur quoi t''as cliqué ??! Valeur reçue='+IntToStr(i));
  end;
end;

Chaque bouton renvoye le bon code et la croix renvoye Cancel

A+

[Pill_S]

jouaud bernard> malheureusement, cela ne corrige pas le problème

NoisetteProd> en effet, ton 2ème code (avec MessageBox) fonctionne chez moi.

Mais pas le premier.... Est-ce que ça pourrait venir du fait que j'utilise delphi 6 ?

[tourlourou]

pour MessageBox sous D5
Value Meaning
IDABORT Abort button was selected. =3
IDCANCEL Cancel button was selected. =2
IDIGNORE Ignore button was selected. =5
IDNO No button was selected. =7
IDOK OK button was selected. =1
IDRETRY Retry button was selected. =4
IDYES Yes button was selected. =6

pour MessageDlg sous D5
mrOk =1 mrRetry =4 mrNo=7
mrYes =6 mrAbort =3 mrNone =0
mrCancel =2 mrIgnore =5 mrAll=8

sous D5, valeurs identiques et pour MessageDialog, la croix renvoie mrNone, soit 0...


les 2 codes de NoisetteProd marchent chez moi sous D5 et D6, mais tu as un paramètre de plus que nous au MessageDialog !

Code :

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

 i:=MessageDlg('Test', [b]'Appuyez sur qqchose:'[/b], mtInformation, mbYesNoCancel, 0);

d'où vient-il ???

[Pill_S]

...tu as un paramètre de plus que nous au MessageDialog !

Code :

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

 i:=MessageDlg('Test', [b]'Appuyez sur qqchose:'[/b], mtInformation, mbYesNoCancel, 0);

d'où vient-il ???

j'utilise une autre version surchargée de cette fonction:

function MessageDlg(const Caption: WideString; const Msg: WideString; DlgType: TMsgDlgType
; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload;

[NoisetteProd]

Le problème viens donc surement de cette version surchargée !

DIs nous en plus !

[Pill_S]

Arf !

Je viens de comprendre.....

Je faisais un "uses QDialogs", au lieu d'un "uses Dialogs" !!! Et dans QDialogs, il y a la définition des mêmes constantes mais avec des valeurs différentes


Tout fonctionne nickel maintenant

Vous trouvez pas ça assez mal fouttu vous ?

[Nono40]

Je faisais un "uses QDialogs", au lieu d'un "uses Dialogs" !!! Et dans QDialogs, il y a la définition des mêmes constantes mais avec des valeurs différentes

Toutes les unités Qxxxx sous les unités CLX pour compatibilité avec Kylix. Supprime de ton code tous ces unités si la portabilité n'est pas le but. Ton application ne s'en portera que mieux ( la CLX livrée avec Borland est buggée au possible )

D'autre part, dans Delphi 6 et Delphi 7 quand tu fais F1 sur un identificateur il te donne trés souvent deux liens. Le premier contient le nom seul et le deuxième à la même nom mais avec "référence de bibliothèque de composants visuels" en plus. Dans ce cas prend toujours ce deuxième lien, il correspond à la version VCL de l'aide. Le premier est celui de la version CLX...

[Pill_S]

Toutes les unités Qxxxx sous les unités CLX pour compatibilité avec Kylix. Supprime de ton code tous ces unités si la portabilité n'est pas le but. Ton application ne s'en portera que mieux ( la CLX livrée avec Borland est buggée au possible )

D'autre part, dans Delphi 6 et Delphi 7 quand tu fais F1 sur un identificateur il te donne trés souvent deux liens. Le premier contient le nom seul et le deuxième à la même nom mais avec "référence de bibliothèque de composants visuels" en plus. Dans ce cas prend toujours ce deuxième lien, il correspond à la version VCL de l'aide. Le premier est celui de la version CLX...

Tout s'explique ! Moi je prenais toujours l'autre lien...

Merci de la précision. En effet, la portabilité n'étant pas indispensable dans mon cas, je vais virer tous les Qxxx


@+!