Utilisation Message Dialogue

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour.
je travaille avec Delphi 7 Entreprise.

Lorsque j'utilise MessageDlg tel que préconisé par son Help soit
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Bienvenue dans mon application Delphi.Quitter?', mtConfirmation,[mbYes,mbNo],0,mbYes)=mrYes then begin MessageDlg('Fin de l''application Delphi.',mtInformation,[mbOk],0); Close; end; end; end.
Je reçois le Message trop de paramètres originaux.

Quand je supprime le texte en rouge ça marche parfaitement, soit :
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Bienvenue dans mon application Delphi.Quitter?', mtConfirmation,[mbYes,mbNo],0)=mrYes then begin MessageDlg('Fin de l''application Delphi.',mtInformation,[mbOk],0); Close; end; end; end.
D'autre part j'ai toujours par défault toujours le choix 'Oui',
que je note [mbYes,mbNo] ou [mbNo,mbYes],
ou je je mette 0 ou 1

Comment avoir au choix le 'Oui' ou le 'Non' pour éviter des utilisations intempestives.

Merci

02/12/2008, 18h38
Cl@udius

Salut

Citation:

Envoyé par damene

Comment avoir au choix le 'Oui' ou le 'Non' pour éviter des utilisations intempestives.

Pour ce faire, tu dois utiliser MessageBox (défini dans Windows.pas) au lieu de MessagDlg.

@+ Claudius.
02/12/2008, 19h30
damene

Salut Cl@dius
citation

Citation:

Pour ce faire, tu dois utiliser MessageBox (défini dans Windows.pas) au lieu de MessagDlg.

Hélas je suis débutant et en utilisant l'exemple du help je reçois le message types incompatible HWND et String

peux-tu me donner le code exact avec l'exemple de Message dialogue ci dessus?

Merci
02/12/2008, 20h03
Droïde Système7

:salut:

Ça ? :

Code:

MessageBoxA(0,Pchar('Message ici...'),Pchar('Title'),MB_YESNO + 0 + MB_DEFBUTTON2);
02/12/2008, 21h26
damene

merci Droïde Systeme7 pour la réponse.

Je repose toujours la même question quel est le paramètre qui permet de mettre le 'oui' ou le 'non' (première ou deuxième valeur) valeur par défaut.

Car même avec trois valeurs de choix (2 au lieu de 0) la valeur par défaut est la deuxième
03/12/2008, 00h50
ero-sennin
Salut,

J'avais fait un petit programme pour créer des MessagesBox ... Tu peux t'en inspirer pour faire tes propres messagesBox :

Le bouton test permet de voir le résultat que ça va produire lors de l'exécution de la MessageBox
Le bouton copier permet de copier en mémoire le code pour le coller dans l'application que tu développes.

L'application se trouve ici

Sinon, c'est le dernier paramètre qui définit le bouton par défaut. Moi j'utilise MessageBox ou lieu de MessageBoxA ...
Code:

1 2 3 4 MessageBox(Handle, 'message', 'titre', MB_YESNO+MB_DEFBUTTON2);
Voilà, en espérant t'avoir aidé :)
A+ ;)

Salut damene,
Citation:
Envoyé par damene
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Bienvenue dans mon application Delphi.Quitter?', mtConfirmation,[mbYes,mbNo],0,mbYes)=mrYes then begin MessageDlg('Fin de l''application Delphi.',mtInformation,[mbOk],0); Close; end; end; end.
Je reçois le Message trop de paramètres originaux.
J'ai copié/collé ton code, et chez moi ça compile (sous bds 2006), avec le comportement voulu (quand je remplace le dernier argument par "mbNo", c'est bien le bouton "Non" qui est sélectionné par défaut).

C'est louche que ça ne marche pas chez toi.
Tu as bien l'unité Dialogs dans tes uses? tu es sûr que tu n'accèdes pas à une autre fonction MessageDlg, dans une autre unité, qui n'aurait pas la version surchargée? Tu as regardé le code de l'unité Dialogs de ta version de la VCL pour vérifier si la fonction MessageDlg a bien les 2 versions surchargées?
Pour la fonction MessageDlg, je chercherais plutôt dans cette direction.

Sinon, la réponse de ero-sennin devrait te dépanner. Si tu as GExperts ou CnPack dans tes experts (je ne sais pas s'il existe des versions pour D7 enterprise?), ils proposent aussi des modules pour créer une boîte de Dialog avec une petite GUI de base.

*LeGEC*

Salut.

Citation LeGEC

Citation:

C'est louche que ça ne marche pas chez toi.
Tu as bien l'unité Dialogs dans tes uses? tu es sûr que tu n'accèdes pas à une autre fonction MessageDlg, dans une autre unité, qui n'aurait pas la version surchargée? Tu as regardé le code de l'unité Dialogs de ta version de la VCL pour vérifier si la fonction MessageDlg a bien les 2 versions surchargées?
Pour la fonction MessageDlg, je chercherais plutôt dans cette direction.

J'ai bien l'unité Dialogs dans les Uses.
Je n'ai qu'une unité et j'utilise une seule fois MessageDlg.

Par contre je ne sais pas comment verifier le code de MessageDlg dans la VCL

En tout état de cause toutes les explications que vous m'avez tous données : Cl@udius, Ero-Sennin, Droïde System7 ou leGec me règlent mon problème en utilisant le messageBox d'Evarisnea du 4/10/2008 qui me permet en plus de mettre un label dans le MessageBox
Code:

1 2 3 4 5 6 7 8 procedure TSupPaiement.BitBtn1Click(Sender: TObject); var rep : integer; begin rep:= MessageBox(Handle,Format('Etes-vous sûr de vouloir supprimer l''adhérent %s ?',[Nom.Caption]), 'Avertissement ',(MB_YesNO or MB_ICONSTOP)+ MB_DEFBUTTON2 )) ; if (rep =IDOK) then// test si réponse OK Table1.Delete; // Suppression de l'enregistrement; end;
Merci à tous.

03/12/2008, 22h06
Cl@udius

Salut

Code:

MB_OKCANCEL or MB_ICONSTOP or MB_DEFBUTTON2

est une syntaxe plus propre. ;)

@+ Claudius
03/12/2008, 22h16
damene

Ok Merci à tous

Salut. LeGEC

Citation:
C'est louche que ça ne marche pas chez toi.
Tu as regardé le code de l'unité Dialogs de ta version de la VCL pour vérifier si la fonction MessageDlg a bien les 2 versions surchargées?
Pour la fonction MessageDlg, je chercherais plutôt dans cette direction.

Je comprend maintenant le sens de ta question.
effectivement dans l'unité Dialogs de ma version de la VCL je n'ai pas la version surchargée.
Voilà ce qui s'y trouve
Code:

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 26 27 28 function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer; begin Result := MessageDlgPosHelp(Msg, DlgType, Buttons, HelpCtx, -1, -1, ''); end; function MessageDlgPos(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Integer; begin Result := MessageDlgPosHelp(Msg, DlgType, Buttons, HelpCtx, X, Y, ''); end; function MessageDlgPosHelp(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; const HelpFileName: string): Integer; begin with CreateMessageDialog(Msg, DlgType, Buttons) do try HelpContext := HelpCtx; HelpFile := HelpFileName; if X >= 0 then Left := X; if Y >= 0 then Top := Y; if (Y < 0) and (X < 0) then Position := poScreenCenter; Result := ShowModal; finally Free; end; end;
Encore merci

Pour ceux qui comme moi ne possèdent pas la version surchargée de messagedlg indiquant le bouton par défaut en fouinant dans la FAQ, j'ai trouvé une fonction développée par Laurent Dardenne et Pedro qui permet de fixer un bouton par défaut.
Ils ont même développé deux fonctions

la première :

Code:

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
26
27
28
function DefMessageDlg(const aCaption: string; const Msg: string; DlgType: TMsgDlgType;
 Buttons: TMsgDlgButtons; DefButton: TModalResult; HelpCtx: Longint): Integer;
//Crée une fenêtre de dialogue en précisant le bouton actif.
//Exemple avec le bouton non par défaut
//if DefMessageDlg('Voulez-vous le supprimer ?', mtConfirmation, mbYesNoCancel, mrno, 0) ...
var
 i: Integer;
 btn: TButton;
begin
 with CreateMessageDialog(Msg, DlgType, Buttons) do
 try
   Caption := aCaption;
   HelpContext := HelpCtx;
   for i := 0 to ComponentCount - 1 do
   begin
     if Components[i] is TButton then
     begin
       btn := TButton(Components[i]);
       btn.default := btn.ModalResult = DefButton;
       if btn.default then
         ActiveControl := Btn;
     end;
   end;
   Result := ShowModal;
 finally
   Free;
 end;
end;

la deuxième

Code:

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
26
27
function MsgEx(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; DefaultButton:TMsgDlgBtn):TModalresult;
var phr:string;
begin
  if DefaultButton in Buttons then
  begin
      case DefaultButton of //On récupère le nom du bouton d'après son type
        mbYes:phr:='Yes';
        mbNo:phr:='No';
        mbOK:phr:='OK';
        mbCancel:phr:='Cancel';
        mbAbort:phr:='Abort';
        mbRetry:phr:='Retry';
        mbIgnore:phr:='Ignore';
        mbAll:phr:='All';
        mbNoToAll:phr:='NoToAll';
        mbYesToAll:phr:='YesToAll';
        mbHelp:phr:='Help';
      end;
      with CreateMessageDialog(Msg,DlgType,Buttons) do
      try
        activecontrol:=twincontrol(findcomponent(phr));
        result:=ShowModal;
      finally
        free;
    end;
  end else result:=Messagedlg(Msg,DlgType,Buttons,0);
end;

03/01/2009, 18h55
Droïde Système7

Complément d'infos

Bonjour et bananée au forum :D

Citation:

Je reçois un message d'erreur : trop de paramètres originaux.

J'ai un peu creusé ce sujet des MessageDlg, d'autant plus qu'en effet, au FI sur MessageDlg ça donne le code tout en haut de ce thread.

Il parait qu'il faut tout simplement ajouter en Uses ==> QDialogs et nous avons sous MessageDlg, au choix ces fameux btn par défaut...

Ceci dit : merci à Laurent et Pedro pour le code ci-dessus ; ça va bien me dépanner, car j'utilise une "peau" qui devient très capricieuse des fois. Là en ce cas précis, si je place une MessageBox (et non un MessageDlg) = les boutons sont invisibles, sauf si le mulot trotte dessus :aie:

@+
05/01/2009, 10h21
cincap

QDialogs
Bonjour à toutes et à tous,

@ Droïde Système7, l'unité QDialogs n'est pas reconnue dans D6 et j'avais comme information que le Q devant signifie que ton programme peut fonctionner sous Linux egalement mais en fournissant une dll de 3.2 mega je crois avec ton soft.

Par contre, en essayant la 1ère fonction de Laurent, j'ai un message d'erreur :
Code:

1 2 if DefMessageDlg('Voulez-vous le supprimer ?', mtConfirmation, mbYesNoCancel, mrno, 0) then beep ;
Erreur :

Citation:

[Erreur] Unit1.pas(89): Types incompatibles : 'String' et 'TMsgDlgType'
[Erreur] Unit1.pas(89): Types incompatibles : 'TMsgDlgType' et 'Set'
[Erreur] Unit1.pas(89): Le type de l'expression doit être BOOLEAN
[Erreur fatale] Project1.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'

J'oublie peut être quelque chôse ?

@+,

Cincap
05/01/2009, 11h20
Droïde Système7

Bonjour au forum,

@ cincap : oui pour la racine "Q", mais je ne me suis encore, pas trop frotté à ce genre de manip.

Quant aux messages d'erreurs que tu as en rapport avec ce code :
http://delphi.developpez.com/faq/?pa...fautmessagedlg

J'ai tout comme toi ces lignes d'erreurs sous D7.

@+

Avec MessageBox !

@ Droïde Système7, voici un exemple.

Boutons OK et ANNULER avec focus sur ANNULER

Code:

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 Case MessageBox(Application.MainForm.Handle ,{Déclaration de la MessageBox}
       pchar('Ma boîte de dialogue')
       , PChar('Mon caption'), 321) Of
    IDOK      :;
    IDCANCEL  :;
  End;
 
end;

Ou 3 boutons OUI, NON, ANNULER : avec Focus sur NON

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure TForm1.Button4Click(Sender: TObject);
var choix: integer;
begin
choix:=MessageBox(Handle, pchar('Mon message') , pchar('Mon caption'), 323);     //appel de la MessageBox
 
     If choix=6 then     //si clic sur oui
     begin
              //taper ici le code correspondant
     end;
 
     If choix=7 then     //si clic sur non
     begin
              //taper ici le code correspondant
     end;
 
     If choix=2 then     //si clic sur annuler
     begin
              //taper ici le code correspondant
     end;
 
end;

@+,

Cincap

05/01/2009, 14h53
Droïde Système7

@ Cincap :

Merci, je connais déjà l'utilisation des MessageBox :mouarf:

Je parlais de ces deux fonctions :
http://delphi.developpez.com/faq/?pa...fautmessagedlg
05/01/2009, 16h47
cincap

Je m'en doute !

@ Droïde Système7, Je m'en doute, tout le monde n'est pas membre Expert étoilé.

Pour les 2 fonctions présentées, erreur dans D6 donc pas de solution
probante.

Erreur 2ième fonction :

Citation:

[Erreur] Unit1.pas(73): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur] Unit1.pas(74): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur] Unit1.pas(75): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur] Unit1.pas(76): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur] Unit1.pas(77): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur] Unit1.pas(78): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur] Unit1.pas(79): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur] Unit1.pas(80): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur] Unit1.pas(81): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur] Unit1.pas(82): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur] Unit1.pas(83): Types incompatibles : 'TMsgDlgBtn' et 'TMsgDlgBtnEx'
[Erreur fatale] Project1.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'

@+,

Cincap
08/01/2009, 18h02
snarpory

erreur compilation D6

bonjour à tous

Bien que cette discussion soit marquée comme Résolu, il me semble nécessaire d’apporter une précision au sujet de l’erreur rencontrée par damene et cincap en D6 ou autres,
l’exemple fourni avec la 1° fonction ne respecte pas le prototype de celle-ci;
en effet, il manque un paramètre en début qui correspond au paramètre aCaption et qui défini le titre de la fenêtre.
il faut donc rajouter un paramètre en début de liste

le code peut donc être le suivant

if DefMessageDlg('TITRE','Voulez-vous le supprimer ?', mtConfirmation, mbYesNoCancel, mrno, 0) then beep ;

désolé, si ce message fait double envoi avec un autre que je n'aurai pas vu ou s'il arrive trop tard.

;)
08/01/2009, 18h19
Droïde Système7

Citation:

Envoyé par snarpory

bonjour à tous

Bien que cette discussion soit marquée comme Résolu, il me semble nécessaire d’apporter une précision au sujet de l’erreur rencontrée par damene et cincap en D6 ou autres,
l’exemple fourni avec la 1° fonction ne respecte pas le prototype de celle-ci;
en effet, il manque un paramètre en début qui correspond au paramètre aCaption et qui défini le titre de la fenêtre.
il faut donc rajouter un paramètre en début de liste

le code peut donc être le suivant

Code:

if DefMessageDlg('TITRE','Voulez-vous le supprimer ?', mtConfirmation, mbYesNoCancel, mrno, 0) then beep ;

désolé, si ce message fait double envoi avec un autre que je n'aurai pas vu ou s'il arrive trop tard.

;)

:coucou:

Non, non, jamais trop tard pour bien faire, très interessant, je viens seulement de pouvoir admirer ces fonctions, mais à cela un petit ajout en bout avec la condition en boolean :

Code:

if DefMessageDlg('TITRE','Voulez-vous le supprimer ?', mtConfirmation, mbYesNoCancel, mrno, 0) > 0 then beep ;

Merci @+

Voir 40 message(s) de cette discussion en une page