Discussion :

[Higgins]

Bonjour tout le monde,

Je me trouve face à un problème. Quelque soit le type de bouton que je définis dans MessageDlg, j'ai toujours un bouton OK qui s'affiche.
J'ai testé avec un programme basique:une fiche un bouton qui affiche 'Hello world'.
Voici mon code:

Code :

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

1
2
3
4
5
 
procedure TForm2.Button1Click(Sender: TObject);
begin
      MessageDlg('',TMsgDlgType.mtError,[TmsgDlgBtn.mbCancel],0);
end;

La boite de message qui s'ouvre affiche un bouton OK. J'ai essayé tous les type de boites de mtCustom à mtWarning pour vérifier, c'est pareil.
J'ai essayé aussi avec mbNo et mbYes, c'est pareil!
Comme je suis joueur, j'ai essayé de remplacer

Code :

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

TmsgDlgBtn.mbCancel

par

Code :

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

tMsgDlgBtn(idCancel)

Pas mieux
Je n'ose pas imaginer qu'il s'agit d'un vrai bug (en même temps avec tout ce que je découvre comme régressions depuis quelques temps.... )

[SergioMaster]

Bonjour ,

étrangement avec 2 boutons même problème mais à partir de 3 cela fonctionne

Code :

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

1
2
MessageDlg('', TMsgDlgType.mtError, [TmsgDlgBtn.mbYes,TmsgDlgBtn.mbCancel], 0); // Juste OK
MessageDlg('', TMsgDlgType.mtError, [TmsgDlgBtn.mbYes,TmsgDlgBtn.mbNo,TmsgDlgBtn.mbCancel], 0);

Merci , tu n'aurais pas soulever le lièvre je ne l'aurais pas vu

en cherchant dans le source MessageDlg fait en fait appel a MessageDlgPosHelp
avec un defaultbutton=TmsgDlgBtn.mbOk ce qui expliquerait peut être le bug ?
j'ai rapidement essayé

Code :

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

MessageDlgPosHelp('', TMsgDlgType.mtError,[TmsgDlgBtn.mbCancel], 0, -1, -1, '', TmsgDlgBtn.mbCancel);

mais je viens de me faire rattraper par les soucis du travail, je te laisse la piste

[Higgins]

Merci pour la piste, malheureusement, j'ai le même résultat.
J'ai carrément l'impression que le pb vient de IFMXDialogService

[SergioMaster]

Oui , je suis du même avis , certaines combinaisons fonctionnent [mbYes,mbNo]
d'autres non il faudrait vérifier les combinaisons 'classiques' d'un messagebox pour confirmation


Je suis allez voir sur EDN personne n'en parle . Maintenant cela fait peut être partie d'un bug signalé (ou pas j'ai pas été encore regarder)

[Higgins]

certaines combinaisons fonctionnent [mbYes,mbNo]
d'autres non il faudrait vérifier les combinaisons 'classiques' d'un messagebox pour confirmation

Sur QualityCentral, j'ai vu un post d'un utilisateur qui signalait que la combinaison [mbYes,MbCancel] ne fonctionnait pas et on lui a répondu que c'était conçu comme ça, seul mbOK pouvait être associé à mbCancel et le report a été clos avec le code "AsDesigned"
Je peux éventuellement l'admettre mais le bouton mbCancel tout seul ça devrait marcher!
Je voudrais signaler le bug sur QC mais je ne trouve pas de "bouton" poster un rapport, je ne peux que consulter

[paulfr]

Bonjour,

Sous D2006 j'ai utilisé MessageDlg :

Code :

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

MessageDlg('essai cancel',mtWarning, [mbCancel],0);

j'obtiens une fenêtre "Avertissement" avec le message, un triangle ! et
un bouton "Annuler" ?

PL

Et si je rajoute mbOK j'ai les 2 pj

[SergioMaster]

Salut,

Sous D2006 j'ai utilisé MessageDlg ....

@Paul , on parle de FMX donc de Delphi XE a minima , pas de VCL ! avec Delphi XE4 VCL cela fonctionne "correctement"

seul mbOK pouvait être associé à mbCancel et le report a été clos avec le code "AsDesigned"

c'est bien ce que j'ai lu aussi : un dictat des concepteurs FMX ? d'un autre coté , si tu ne l'avais pas fait remarqué je ne serais jamais tombé dessus , pour mes nouveaux projets j'utilise une boite dialogue de TMS (sauf programmes tests rapides)

[Higgins]

pour mes nouveaux projets j'utilise une boite dialogue de TMS (sauf programmes tests rapides)

C'est également ce que j'ai fait. J'ai développé rapidement ma boîte de dialogue basique.
Après tout, pourquoi s'appuyer sur l'existant quand on peut réinventer la roue