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
est-il possible d'annuler la fermeture (Close) de l'application?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin - - - end;
Partager