Como impedir um formulário de ser fechado? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

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.

Facebook Comments

Posts Relacionados

  • Administrador
  • 489 views
  • 0 comentários
  • 21 de março de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo


© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados