Listar Forms da Aplicação

Delphi

25/03/2009

Pessoal como posso listar os forms da aplicação

criei uma rotina usando o comando for mas só é retornado o Form Principal

for i := 0 to pred(Application.ComponentsCount) do
if (Application.Component[i] is TForm) then
ShowMessenge(TForm(Application.Component[i]).Name);

javascript:emoticon(´:arrow:´) TForm1

Alguém pode me da uma idéia?
valeu!


Racsantos

Racsantos

Curtidas 0

Respostas

Woinch

Woinch

25/03/2009

Tente o seguinte:

  with Application do
  begin
    for I := 0 to ComponentCount -1 do
      if (Components[I] is TForm) then
        ShowMessage((Components[I] as TForm).Name);

  end; //with

Se não me engano esse comando só pega os Forms que a propriedade Parent seja Application.


GOSTEI 0
Vitor Alcantara

Vitor Alcantara

25/03/2009

Eu uso assim

 with Screen do 
  begin 
    for I := 0 to FormCount -1 do 
      ShowMessage(Forms[I].Name); 

  end; //with



GOSTEI 0
POSTAR