Pegando os forms

Delphi

11/12/2004

Galera...
Em tempo de execução, eu crio alguns formularios
frm := tFrm.Create(Self);

Eles sao sempre criados a partir de um certo form...
Gostaria de obter todos os forms criados por esse mesmo...

Ah!!! Quando eu fechar o form e os outros estiverem abertos eles serao tirados da memoria automaticamente?!

Abraços


Tremonti

Tremonti

Curtidas 0

Respostas

Tremonti

Tremonti

11/12/2004

Nao, tudo bem...
Eu faço isso no on close

Action := cafree;
frm := NIL;

Mas keria saber se o form que criou faz isso?!

Em relação a outra pergunta é que eu crio os forms a partir de só UM form...

e tipow, na hora de fechar quero saber se existe algum aberto...
Se tem como eu saber entendeu?!

Abraços


GOSTEI 0
Sandra

Sandra

11/12/2004

:) Olá Tremonti!!

Você quer saber quais são os forms abertos para, ao encerrar o programa, fechar todos eles, não é?

Se for, pode utilizar assim:

Var
  i: Integer;
begin
  For i := 0 to ComponentCount-1 do
    if Components[i].ClassName = ´TForm´ then begin
      Components[i].Close;
      Inc(i);
    end;
end;


Não testei o código, mas é mais ou menos por aí. Boa sorte!


GOSTEI 0
POSTAR