question sur les message box !

**krown** · 02/08/2002, 13h57

Code :

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

1
2
 
Application.MessageBox('Client inconnue !', 'ATTENTION', MB_ICONEXCLAMATION + MB_OK);

voici le code d'une message box ! comment faire pour que quand la personne clic sur ok cela ouvre un deuxieme messagebox et que si elle repond ok cela ouvre une form ??

**malkav** · 02/08/2002, 14h21

Ta MessageBox renvoit une valeur de type TMessageButton

teste la valeur

PS: Tout est dans l'aide de Delphi

**Lung** · 02/08/2002, 14h23

Code :

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

Application.MessageBox('Client inconnue !', 'ATTENTION', MB_ICONEXCLAMATION + MB_OK);

Bin, tu mets à la suite le code pour une autre MessageBox, car l'utilisateur doit forcément fermer la MessageBox, pour poursuivre.

Par contre, ce que tu peux faire aussi, c'est une MessageBox, avec un bouton OK et un bouton Annuler (ou OUI et NON) :

Code :

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

if Application.MessageBox('message', 'Titre', MB_ICONQUESTION + MB_OKCANCEL) = ID_OK then

Code :

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

if Application.MessageBox('message', 'Titre', MB_ICONQUESTION + MB_YESNO) = ID_YES then

**krown** · 02/08/2002, 14h33

ok pour les fonction par contre quand je fait :

Code :

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

1
2
3
4
5
6
 
 
 if Application.MessageBox('Client inconnue !', 'ATTENTION', MB_ICONEXCLAMATION + MB_OK)= ID_OK then  //ouverture d'une boite de dialogue
   if Application.MessageBox('Voulez vous créer ce client ?', '', MB_ICONQUESTION + MB_YESNO) = ID_YES then
   DM.BaseClient.Append;
   Nouveauclient.Show;

meme si je clic sur le bouton non cela m'ouvre quand meme ma form ?
aurait je fait une erreur? ou bien je mi suis mal pris ?

**Lung** · 02/08/2002, 14h36

Tu as oublié les indicateurs de block. Après ton then, toutes les instructions qui sont concernées doivent être encadrées par un begin ... end !