Déclaration:

 

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: longint): Integer;

function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: longint; DefaultButton: TMsgDlgBtn): Integer; overload;

 

 
Description:
Cette fonction permet d'afficher une boite de message entièrement paramétrable.
Différents boutons peuvent être affichés pour permettre à l'utilisateur de choisir une action à effectuer.

 

Détail des paramètres de la fonction:

1. const Msg: string
   Ce paramètre permet de définir le texte du message qui sera affiché dans la boite de message.
2. DlgType: TMsgDlgType
   Avec ce paramètre on défini le type de boite de message.
   Il existe 5 types de boite de message:
   
   

   Constante	Description
   mtInformation
   mtConfirmation
   mtWarning
   mtError
   mtCustom

3. Buttons: TMsgDlgButtons
   Ce paramètre permet de sélectionner les boutons qui seront disponibles dans la boite de message.
   Voici la liste des boutons possibles:
   
   

   Constante	Texte affiché
   mbOK	OK
   mbCancel	Annuler
   mbYes	Oui
   mbNo	Non
   mbRetry	Réessayer
   mbAbort	Abandonner
   mbIgnore	Ignorer
   mbAll	Tous
   mbYesToAll	Oui à tout
   mbNoToAll	Non à tout
   mbHelp	Aide

   La déclaration de plusieurs boutons se fait par l'intermédiaire d'une liste.
   

   [mbOK, mbCancel]

   Pour les cas les plus courants, on a également la possibilité d'utiliser des listes prédéfinis:
   
   

   Constante	Boutons affichés
   mbOKCancel	Ok et Annuler
   mbYesNoCancel	Oui, Non, Annuler
   mbYesAllNoAllCancel	Oui, Oui à tout, Non à tout, Annuler
   mbAbortRetryCancel	Abandonner, réessayer, Annuler
   mbAbortIgnore	Abandonner, Ignorer

4. HelpCtx: longint
   Ce paramètre permet d'afficher ???
5. DefaultButton: TMsgDlgBtn

 

Réponse de la fonction:

En retour la fonction renvoie un integer en fonction du bouton qui à été sélectionné:

 

Constante	Valeur
mrOK	1
mrCancel	2
mrAbort	3
mrRetry	4
mrIgnore	5
mrYes	6
mrNo	7
mrAll	8
mrNoToAll	9
mrYesToAll	10

Exemple d'utilisation:

 

var
  Choix : Integer;
begin
  Choix := MessageDlg('Voulez vous faire ceci ?', mtConfirmation, [mbYes, mbNo], 0);

  if Choix = mrYes then showmessage('on le fait');
  if Choix = mrNo then showmessage('on ne le fait pas');
end;