Discussion :

[camcam10]

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 :

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

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;

[ChPr]

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 :

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

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

[camcam10]

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