Spécialité : Module :
Delphi monoposte
TS Base de données Semestre :
03
Thème 15:
Créer des messages
Objectifs : Pré-requis :
A la fin du TP, le stagiaire doit être capable de :
- Opérations sur les
Utiliser les fonctions : projets
Showmessage
Messagedlg
Temps prévu : Plan du TP :
1. la procedure showmessage
08 Heures syntaxe
exemple
Moyens et aides 2. la fonction messagedlg
pédagogiques : syntaxe
- Tableau exemple
- PC + logiciel Delphi
parametres
Documentation : Remarques :
I. La procedure showmessage :
Définition : la procédure ShowMessage permet d’afficher un message simple
avec le bouton OK. Le nom de l'exécutable de l'application apparaît comme
légende de la boîte de dialogue.
Syntaxe :
procedure ShowMessage (const Msg: string);
Exemple : showmessage(‘le stagiaire est inséré avec succés’) ;
II. La fonction MessageDlg :
Définition: permet d’afficher une boîte de dialogue de message au centre de l'écran et gérer
la réponse de l'utilisateur.il y a plusieurs types de boites de dialogues, ainsi la boite de
dialogue peut contenir un ou plusieurs boutons.
Syntaxe :
function MessageDlg(Msg: string ; DlgType:TMsgDlgType ; Buttons: TMsgDlgButtons ;
HelpCtx: integer): Word;
Msg : le message à afficher
DlgType indique le type de boîte de dialogue
Boutons pour déterminer quels boutons apparaissent dans le message.
HelpCtx pour spécifier l'ID de contexte de la rubrique d'aide qui doit apparaître quand
l'utilisateur clique sur le bouton d'aide ou F1.
exemple:messagedlg ('Etes vous sure de quitter l’application?', mtconfirmation,
[mbyes, mbno], 0);
Types de la boite dialogue :
Valeur Signification
mtWarning Une boîte de message contenant un signe point d'exclamation jaune
mtError Une boîte de message contenant un signe de stop rouge.
mtInformation Une boîte de message contenant un "i" bleu.
mtConfirmation Une boîte de message contenant un point d'interrogation vert.
mtCustom Une boîte de message ne contenant pas d'image.
Les boutons de la boite de dialogue :
Valeur Signification
mbYes Un bouton avec le texte "Oui".
mbNo Un bouton avec le texte "Non".
mbOK Un bouton avec le texte "OK".
mbCancel Un bouton avec le texte "Annuler".
mbAbort Un bouton avec le texte "Abandonner".
mbRetry Un bouton avec le texte "Réessayer".
mbIgnore Un bouton avec le texte "Ignorer".
mbAll Un bouton avec le texte "Tous".
mbNoToAll Un bouton avec le texte 'Non à tout'
mbYesToAll Un bouton avec le texte 'Oui à tout’
mbHelp Un bouton avec le texte "Aide".
Constante Signification
mbYesNoCancel mbYes, mbNo et mbCancel
mbOKCancel mbOK et mbCancel
mbAbortRetryIgnore mbAbort, mbRetry et mbIgnore
Valeurs renvoyées (résultat de la fonction) :
Constante Signification
mrNone Aucune. Utilisée comme valeur par défaut avant la sortie de l'utilisateur.
mrOk L'utilisateur est sorti avec le bouton OK.
mrCancel L'utilisateur est sorti avec le bouton CANCEL.
mrAbort L'utilisateur est sorti avec le bouton ABORT.
mrRetr L'utilisateur est sorti avec le bouton RETRY.
mrIgnore L'utilisateur est sorti avec le bouton IGNORE.
mrYes L'utilisateur est sorti avec le bouton YES.
mrNo L'utilisateur est sorti avec le bouton NO.
Exemple :
if MessageDlg(‘Etes vous sure de quitter l’application ?’, mtConfirmation, [mbYes, mbNo],
0) = mrYes then
begin
showmessage(‘Fin de l’application’) ;
Close;
end;
Exercice :
Ecrire les fonctions Messagedlg qui permettent d’afficher les messages suivants :
