Discussion :

[PANORAMIC]

Dans une application, lorsqu'on clique sur la croix en haut à droite, s'exécute la procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

Dans cette procédure, je propose à l'utilisateur un choix de choses à faire (sauvegarde de son travail, pas de sauvegarde, ...) Je voudrais proposer un choix supplémentaire qui est l'annulation de la fermeture de l'application, car l'utilisateur peut avoir cliqué par erreur sur la croix et ne veut pas du tout quitter son application.

Comment dans la procedure

Code :

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

1
2
3
4
TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
- - -
end;

est-il possible d'annuler la fermeture (Close) de l'application?

[PANORAMIC]

Je me réponds à moi-même car je viens de trouver la réponse dans la documentation et je viens de la tester:
il suffit de mettre

Code :

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

Action := caNone;

dans le choix d'annulation de la fermeture.

[ero-sennin]

Salut,

Je te propose de regarder l'événement OnCloseQuery de ta Form! D'un point de vue code, c'est plus propre et plus logique! Dans le OnCloseQuery, tu affiches le message que tu souhaites avec les boutons adéquats (Oui,Non,Annuler par exemple) et selon le choix de l'utilisateur, tu mets la variable CanClose à true ou false ...

Tu peux jetter un oeil à ce post

@+