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; |
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; |
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.
-
InfusTec
-
4.329 views
- 0 comentários
- 21 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo