Comment empêcher la fermeture d'une fenêtre par Alt-F4 ou Cl

Comment empêcher la fermeture d'une fenêtre par Alt-F4 ou Close ?

Il souvent préférable d'imposer à l'utilisateur de fermer une fenêtre par le bouton "Fermer" ou "Quitter" que de le laisser fermer la fenêtre par Alt-F4 ou la croix en haut à droite. Pour bloquer cette fermeture il faut utiliser l'évènement OnCloseQuery de la fiche : mettre CanClose à False par défaut sauf si l'utilisateur vient d'appuyer sur un bouton "Fermer".
Dans le code ci-dessous, une variable intermédiaire va conserver l'appui sur le bouton "Fermer".

Code:: TForm1 = class(TForm)
...
private
{ Déclarations privées }
PeutFermer : Boolean;
...
end;

{ A l'ouverture de la fiche on met PeutFermer à faux. }
procedure TForm1.FormShow(Sender: TObject);
begin
PeutFermer:=False;
end;

{Lors de l'appui sur le bouton "Fermer" la variable PeutFermer est mis à Vrai. }
procedure TForm1.BoutonFermerClick(Sender: TObject);
begin
PeutFermer:=True;
Close;
end;

{A la fermeture de la fiche on teste si la fermeture est autorisée. }
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=PeutFermer;
end;