Truc&astuce : bloquer la fermeture d'une fenêtre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 535 fois - Téléchargée 30 fois

Contenu du snippet

Mon application effectue un upgrade d'un composant. Afin que l'utilisateur ne puisse pas fermer l'application avant fermeture, j'ai trouvé cette astuce.

Dans mon cas cela suffisait.

Source / Exemple :


procedure TfrmPatchAve.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  ShowMessage('Please wait');
  Action := caNone;
end;

Conclusion :


Les autre valeurs possibles de Action (Voir aide delphi):
Valeur Signification

caNone La fiche n'est pas autorisée àse fermer et rien ne se passe.
caHide La fiche n'est pas fermée,juste cachée.L'application peut toujours accéder àla fiche.
caFree La fiche est fermée et toute la mémoire allouée àla fiche est libérée.
caMinimize La fiche est réduite,pas fermée.C'est l'action par défaut pour les fiches enfant MDI.

A voir également

Ajouter un commentaire

Commentaires

cs_grandvizir
Messages postés
1237
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
8 -
On peut aussi annuler une fermeture de fenêtre sur un évènement OnClose par la génération d'une exception silencieuse via la fonction Abort.

fabiin avait déposé un code en utilisant simplement CanClose.
Niki2001
Messages postés
87
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
17 décembre 2005
-
D'autant que ton code ne fonctionne pas avec toutes les versions, certaines utilisant CanClose.
Sinon, c'est évidemment utile pour quelque débutant qui chercherait une solution du genre.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.