Discussion :

[lou_delphdev]

Bonjour tous le monde!!!
mon probleme est trés simple, sur mes aplications delphi g esseyé d'introduir un message ('etes-vous sure de vouloir quitter?') lors'que l'utilisateur ferme l'application, automatiquement je l'ai fait à l'evenement on close mais le souci c'est que même si l'utilisateur choisi de ne pas fermer lapplication cette dernier se ferme commeme!!!

form onclose...

Code :

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

1
2
3
4
5
6
7
 
begin
   if messagedlg('etes vous sure de vouloir quitter?',mtconfirmation,[mbyes,mbno],0)=mryes then
    application.terminate
  else
    ?????????????
end;

je ne sais pas quoi metre à la place des ???? afin de présérvé l'application en execution dans le cas ou on choisi de ne pas quitter!!!

Et merci d'avence

[petitprince]

Il faut mettre ça dans la procedure OnCloseQuery de ta fiche principale...
Normalement, ça devrai le faire bonne nuit...

[lou_delphdev]

Oui mais si on clic sur no sa se ferme commeme
Psk jutilise:

Code :

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

1
2
3
4
5
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if messagedlg('etes vous sure de vouloir quitter?',mtConfirmation,[mbyes,mbno],0)=mryes then application.Terminate else
end;

que dois-je metre apré else pr que ça ne se ferme pas?

merci!!!

[petitprince]

Ben Biensur que ca se ferme quand même !! C'est pas le but ? C'est que j'ai pas compris

Bon alors à ce moment là:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if MessageDlg('etes vous sure de vouloir quitter?', mtConfirmation,[mbyes, mbno],0) = mryes then
  Application.Terminate 
 else
  CanClose := False; // c'est  ça !
end;

Moi je vouyais ça du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if MessageDlg('Voulez-vous enregistrer les modifications ?',mtConfirmation,
  [mbYes, mbNo], 0) = mrYes then
   begin
    SaveDialog1.Execute;
    //... traitement
   end
  else
   Application.Terminate;
end;

Voilà, si c'est clair, n'oublie pas le tag Résolu !
A plus

[Ludo_360]

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if MessageDlg('etes vous sure de vouloir quitter?', mtConfirmation,[mbyes, mbcancel],0) = mrcancel then
  CanClose := False
 else
  Application.Terminate;
end;

et ça marche!

a+

ludo

[Pedro]

Si Form1 est la fiche principale, il est inutile de mettre

Code :

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

1
2
 
Application.Terminate;

La fermeture de la fiche principale de l'appli provoque la fermeture de l'appli
Donc si Form1 est la fiche principale, il peut écrire simplement:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('etes vous sure de vouloir quitter?', mtConfirmation,[mbyes, mbcancel],0) = mrcancel then
  CanClose := False;
end;

[Clorish]

Pour precision "CanClose" est une variable passée en parametre "Var" donc toute modification remonte jusqu'a la fonction appelante.

LE principe de cet evenement (OnCloseQuery) est de d'alerter le developpeur quand l'utilisateur "requiere" une fermeture de l'applciation.

Le developpeur peut ainsi autoriser ou non la fermeture via la madification du parametre "CanClose", par defaut a True.

Une fois le gestionaire d'evenement OnCloseQuery terminé, la classe TForm teste la valeur de CanClose et selon le cas, poursuit ou non le processus de fermeture.

Cela marche pour toutes les forms, mais l'effet n'est pas le meme selon que c'est une simple form ou la form principale (premiere form cree) car le systeme ferme automatiquement l'application quand la form principale se ferme.