Delphi 7 et MessageDlg : problème de bouton par défautRésolu

Question

J'ai une confirmation de suppression que je fais &#224; l'aide d'un MessageDlg de la mani&#232;re suivante et qui fonctionne tr&#232;s bien !



MessageDlg('Voulez-vous r&#233;ellement supprimer ces informations ?',mtConfirmation,[mbYes,mbNo],0);



Lors de cette affichage c'est le bouton oui qui a le focus,
c'est-&#224;-dire qui est s&#233;lectionn&#233; par d&#233;faut. Le probl&#232;me est que si
l'utilisateur appuie sur entr&#233;e par m&#233;garde il perdra l'information.



J'ai regard&#233; l'aide de delphi et ils mettent qu'il est possible de
d&#233;finir un bouton par d&#233;faut lors de l'affichage du message en
proc&#233;dant comme suit :



MessageDlg('Voulez-vous r&#233;ellement supprimer ces informations ?',mtConfirmation,[mbYes,mbNo],0,mbNo);



Dans l'aide il est not&#233; qu'il suffit d'indiquer en dernier (apr&#232;s le 0)
quel doit &#234;tre le bouton par d&#233;faut, ici pour mon exemple "mbNo" qui
est soulign&#233; dans le message ci-dessus.



Le probl&#232;me est que d&#232;s que je compile il s'arr&#234;te sur ce message en me
mettant le message d'erreur suivant : "[Erreur] Unit1.pas(28): Trop de
param&#232;tres originaux"



Quelqu'un a t-il une id&#233;e ? Est-ce arriv&#233; &#224; quelqu'un ou bien est-ce
que cel&#224; fonctionne chez vous ? Peut-&#234;tre est-ce mon Delphi 7 qui
d&#233;conne ?



Merci pour votre aide.

cs_Kenavo · Accepted Answer

Salut,

Pour r&#233;pondre &#224; ta question, Informatixo, if faut ajouter QDialogs &#224; la clause Uses de ton unit&#233;.

Les deux d&#233;finitions de la fonction MessageDialog ne sont pas dans la
m&#234;me unit&#233;, et celle qui t'int&#233;resse n'est pas dans l'unit&#233; Dialog
automatiquement cit&#233;e dans le Uses  de ton unit&#233;.

 

Ken@vo

 Code, Code, Codec !




 

[%3C/body ]

ni69 · Answer

Utilise plutôt MessageBoxA. Cette messageBox renvoie 7 quand on clique sur "Non" et 6 pour "Oui". Dans ta procédure, tu peux écrire directement cette ligne : if MessageBoxA(0,Pchar('Voulez-vous réellement supprimer ces informations ?'),Pchar('Suppression'),MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = 7 then exit; Si l'utilisateur appuie sur "Non", la procédure s'arrête immédiatement, mais si il appuie sur oui, elle continue normalement. @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.fr

informatixo · Answer

Merci &#224; tous les 2.



Comme d'habitude tu me sauve kenavo mais par contre fallait le savoir le coup du QDialogs c'&#233;tait pas indiqu&#233;.



Merci aussi &#224; toi ni69 pour le coup du messageboxa, si j'ai besoin d'un
message o&#249; je dois personnaliser le titre j'utiliserais &#231;a.



Encore merci et &#224; plus.

Delphi 7 et MessageDlg : problème de bouton par défaut

3 réponses

Votre réponse

Discussions similaires