MessageDlg pour confirmation

Version imprimable

Bonjour,

j'ai un petit problème, je souhaite que lorsque l'utilisateur de mon programme clique sur quitter, il soit confronté à une fenêtre de confirmation. Pour cela j'ai utilisé un messagedlg, mais celui-ci ne fonctionne pas correctement :
- il s'ouvre une deuxième fois lorsque je choisis les boutons yes ou no,
- il me ferme quand même l'application lorsque je choisis no

Merci d'avance du coup de pouce !

Voilà mon morceau de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 procedure TForm2.Button4Click(Sender: TObject); begin Form2.Close; Form1.Close; Form3.close; DeleteFile(PChar('index.txt')); DeleteFile(PChar('index.don')); // Form4.close; // From5.close; end; procedure TForm2.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin if Messagedlg('Voulez-vous vraiment quitter ?',mtwarning,[mbyes,mbno],0) = mrno then CloseAction:=caNone; if Messagedlg('Voulez-vous vraiment quitter ?',mtwarning,[mbyes,mbno],0) = mryes then begin CloseAction:=cafree; end; end;

Logique que le MessageDlg s'ouvre deux fois, car tu le demandes deux fois de manière non exclusive.

Je te propose la solution suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  if Messagedlg('Voulez-vous vraiment quitter ?',mtwarning,[mbyes,mbno],0) = mryes then
  begin
    {Action à faire avant la fermeture}
    CloseAction:=cafree;
  end
  else
    CloseAction:= canone
 
end;

Cordialement.

Pierre

29/05/2011, 22h53
camcam10

Mon problème est résolu !
merci beaucoup, bonne soirée :D