afficher une page à la fermeture d'une application

Question

:shock) Comment faire pour afficher une page qui demande si l'on veut enregistrer ou pas les modification, quand on ferme une application. 
Merci.

cs_Bestiol · Answer

Tu peux gérer cela avec une variable publique, de type booléen... Par exemple pour une variable "Sauve", tu la met à True quand le document a été enregistré, et à False, dès qu'il y a une modification...
Enfin, tu utilises l'évènement OnCloseQuery de ta form principale :

procedure TForm1.FormCloseQuery(...);
begin

  If Sauve then Exit;

  Case MessageDlg('Voulez-vous sauvegarder le document ?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) Of
    mrYes: MaProcDeSauvegarde;
    mrCancel: Canclose := False;
  End;

end;


L'utilisateur aura le choix entre sauvegarder le document puis quitter, quitter sans sauvegarder et annuler sa sortie...

Bonne prog' !
[mailto:bestiol@cario.fr Bestiol.]

cs_Nono40 · Answer

Il faut faire la demande dans l'évènement OnCloseQuery de la fiche principale. Par exemple :

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var Retour:Integer;
begin
[mbYes,mbNo],0)=mrYes;
  Retour:=MessageDlg('Voulez-vous enregistrer les modifications ?',mtConfirmation,[mbYes,mbCancel,mbNo],0);
  CanClose:=Retour In [mrYes,mrNo];
  If Retour=mrYes Then Enregistrement;
end;

Avec ce code, le bouton Yes, enregistre et ferme l'application. Le bouton No n'enregistre pas et ferme l'application. Le bouton Annuler n'enregistre pas et ne ferme pas l'application

--- :sleepy)  Nono40@fr.st  :sleepy) ---
Nouveau ---> Nono40.fr.st

Remixgame · Answer

Intéressant merci 
ca va m'aider
----------------------------
Remixtech
Webmaster
www.remixtech.com
----------------------------

monopoliy · Answer

Merci beaucoup !!!! :big) 
 :shock)

Afficher une page à la fermeture d'une application

4 réponses

Votre réponse

Discussions similaires