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