Como impedir um formulário de ser fechado?

Há situações que onde é necessário impedir que um formulário seja fechado.

Como resolver esta situação?

Há duas formas:

1º – No evente OnClose no formulário, sete a variável Action para caNone.

Exemplo de uso

1
2
3
4
5
6
7

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Edit1.Text = '' then
    Action := caNone
  else
    Action := caFree;
end;

2º No Evento OnCloseQuery do form.

Veja o exemplo:

1
2
3
4
5
6

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
 
  { Se setar para false a variável, o formulário não será fechado! }
end;

Dúvidas ou sugestões, deixe nos comentários do post.