Delphipage

Présentation

Une boite de message est une boite de dialogue contenant une image. Elle est utiliser pour dialoguer avec l'utilisateur. En Delphi, il est facile de les utiliser.

Voici une capture d'une boite de message .

il existe 5 boites de messages :
- Avertissement
- Confirmation
- Custom
- Erreur
- Information

Utilisation des boites de message

TMsgDlgType définit les valeurs décrivant les types d'une boite de dialogue de message.

Boite de dialogue	Valeur
Avertissement	mtWarning
Confirmation	mtConfirmation
Custom	mtCustom
Erreur	mtError
Information	mtInformation

Ces boites de dialogues contiennent une image différentes selon leur valeur.

Valeur	Descripion
mtWarning	Une boîte de message contenant un signe point d'exclamation jaune.
mtConfirmation	Une boîte de message contenant un point d'interrogation vert.
mtCustom	Une boîte de message ne contenant pas d'image. Le titre de la boîte de dialogue est le nom du fichier exécutable de l'application.
mtError	Une boîte de message contenant un signe de stop rouge.
mtInformation	Une boîte de message contenant un "i" bleu.

procedure TForm1.Button1Click(Sender: TObject);
Var Conf:integer;
begin
//Boite de message Avertissement avec image
Conf:= MessageDlg(('Voulez-vous mettre la fiche en rouge ?'), mtWarning, mbOKCancel,0);
case Conf of

//Si l'utilisateur appuit sur OK
idOK:
begin
Form1.Color:=clRed; //Met la fiche en rouge
end;

//Si l'utilisateur appuit sur Annuler
idCancel:
begin
Abort; //Abandonne l'action
end;

end;
end;

Messagedlg	[ 02-10-2001 ]
Ce programme permet de comprendre le fonctionnement de la fonction messagedlg. Télécharger : [6 Ko] [ messagedlg.zip] Auteur : Yoann Site internet : http://delphipage.free.fr/

On utilise souvent une boite de message lorsque l'utilisateur quitte une application. Une boite de dialogue s'affiche alors pour vous demander si vous voulrez enregistrer tel fichier.
Pour effectuer ceci, voici un exemple très simple. Ajoutez un composant TEdit et TButton.

procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg(Format('%s?',[Edit1.Text]),mtConfirmation,
[mbYes,mbNo],0);
end;

Ce que vous taperez dans le TEdit s'affichera dans la boite de dialogue.