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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (vaughan)