Fórum Listar Forms da Aplicação #369361
25/03/2009
0
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!
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
Curtir tópico
+ 0
Responder
Posts
26/03/2009
Woinch
Tente o seguinte:
Se não me engano esse comando só pega os Forms que a propriedade Parent seja Application.
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.
Responder
Gostei + 0
26/03/2009
Vitor Alcantara
Eu uso assim
with Screen do
begin
for I := 0 to FormCount -1 do
ShowMessage(Forms[I].Name);
end; //with
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)