Discussion :

[damene]

Bonjour.
je travaille avec Delphi 7 Entreprise.

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

Code :

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

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 :

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

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

[Cl@udius]

Salut

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.

[damene]

Salut Cl@dius
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

[Droïde Système7]

Ça ? :

Code :

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

MessageBoxA(0,Pchar('Message ici...'),Pchar('Title'),MB_YESNO + 0 + MB_DEFBUTTON2);

[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

[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 :

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

1
2
3
4
MessageBox(Handle,
'message',
'titre',
MB_YESNO+MB_DEFBUTTON2);

Voilà, en espérant t'avoir aidé
A+

[LeGEC]

Salut damene,

Code :

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

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*

[damene]

Salut.

Citation LeGEC

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 :

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

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.

[Cl@udius]

Salut

Code :

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

MB_OKCANCEL or MB_ICONSTOP or MB_DEFBUTTON2

est une syntaxe plus propre.

@+ Claudius

[damene]

Ok Merci à tous

[damene]

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 :

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
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

[damene]

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 :

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
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 :

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
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;

[Droïde Système7]

Bonjour et bananée au forum

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

@+

[cincap]

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 :

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

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

Erreur :

[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

[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.

@+

[cincap]

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

Boutons OK et ANNULER avec focus sur ANNULER

Code :

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

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 :

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
 
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

[Droïde Système7]

@ Cincap :

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

Je parlais de ces deux fonctions :
http://delphi.developpez.com/faq/?pa...fautmessagedlg

[cincap]

@ 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 :

[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

[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

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.

[Droïde Système7]

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 :

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

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.

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 :

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

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

Merci @+