Listar todos os formulários do projeto

Delphi

19/09/2006

Olá pessoal eu gostaria de saber se existe a possibilidade de eu exibir uma lista de todos os formulários do meu projeto em tempo de execução, tantos os formulários criados automáticamente, quanto os não.

Obrigado.


Hllsilveira

Hllsilveira

Curtidas 0

Respostas

Cesar Romero

Cesar Romero

19/09/2006

Se vc passar o Application como Owner do Form quando cria os dinamicos é só fazer o seguinte:

  var
    Memo: TMemo;
    I: Integer;

  for I:= 0 to Application.ComponentCount -1 do
  begin
    if Application.Components[I] is TCustomForm then
    begin
      Memo.Lines.Add(TCustomForm(Application.Components[I]).Caption);
    end;
  end;



[]s

Cesar Romero
http://blogs.liws.com.br/cesar


GOSTEI 0
Micheus

Micheus

19/09/2006

tantos os formulários criados automáticamente, quanto os não.
Os que não foram criados ainda não terão como ser listados.


GOSTEI 0
Hllsilveira

Hllsilveira

19/09/2006

Obrigado mas infelizmente, os que não são criados automaticamenteo ainda não são exibidos.


GOSTEI 0
POSTAR