Discussion :

[lessoy]

Bonjour,
j'ai un gros soucis avec la boite de dialogue. En effet, avant suppression j'affiche la boite de dialogue:

Code :

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

if MessageDlg('Etes vous sûr de vouloir supprimer?',mtConfirmation,[mbYes,mbNo],0)=mrNo then Abort;

Mais il se trouve que lorsqu'on clique sur la croix du haut à droite (sur la fenetre), il effectue quand même la suppression.

PS: L'option par défaut est "Oui" (je ne sais pas comment la changer)

Merci

[Cl@udius]

Salut

A mon avis l'appui sur la croix doit renvoyer un mrCancel, donc change ta condition avec un "<> mrYes then ...".

A tester.

@+ Claudius

[Faucon]

Bonjour,
En faisant comme ceci les réponses sont clairement différentes.

Var reponse:integer;

Reponse:=MessageDlg('Imprimer Oui ou Non',mtConfirmation,[mbYes,mbNo],0);

le clique sur bouton "OUI' ... donne reponse=6
le clique sur bouton "NON' ...donne reponse=7
le clique sur la CROIX..........donne reponse=2

Bonne journée.

[Cl@udius]

PS: L'option par défaut est "Oui" (je ne sais pas comment la changer)

Si tu souhaites mettre le bouton 'Non' par défaut, utilise MessageBox au lieu de MessageDlg. Cette fonction est plus souple et permet de choisir le bouton et également de spécifier un titre pour la boite de dialogue.
De plus la croix de fermeture est désactivée.

Code :

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

1
2
3
4
5
6
 
  if MessageBox(Application.Handle, 
    'Etes-vous sûr de vouloir supprimer?',
    'Suppression', 
    MB_YESNO or MB_ICONQUESTION or MB_DEFAULTBUTTON2) <> ID_YES then
    Abort;

@+ Claudius

[aityahia]

Si tu souhaites mettre le bouton 'Non' par défaut, utilise MessageBox au lieu de MessageDlg. Cette fonction est plus souple et permet de choisir le bouton et également de spécifier un titre pour la boite de dialogue.
De plus la croix de fermeture est désactivée.

Code :

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

1
2
3
4
5
6
 
  if MessageBox(Application.Handle, 
    'Etes-vous sûr de vouloir supprimer?',
    'Suppression', 
    MB_YESNO or MB_ICONQUESTION or MB_DEFAULTBUTTON2) <> MB_OK then
    Abort;

@+ Claudius

effectivement la commande MessageDlg nous nous laisse pas le choix du bouton par défaut, le code de l'unité Dialogs

Code :

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

1
2
3
4
5
6
7
8
9
10
function CreateMessageDialog(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons): TForm;
var
  DefaultButton: TMsgDlgBtn;
begin
  if mbOk in Buttons then DefaultButton := mbOk else
    if mbYes in Buttons then DefaultButton := mbYes else
      DefaultButton := mbRetry;
  Result := CreateMessageDialog(Msg, DlgType, Buttons, DefaultButton);
end;

CreateMessageDialog est une procédure appelé par MessageDlg