Fórum Buscar Forms do Meu Projeto #264438
06/01/2005
0
Eis aqui a rotina, mas so me mostra formularios do Auto-Crete.
procedure TF_Menu.Button1Click(Sender: TObject);
Var
intC : Byte;
begin
For intC := 0 To Application.ComponentCount -1 Do
Begin
If(Application.Components[intC] is TForm)Then
ListBox1.Items.Add(TForm(Application.Components[intC]).Name);
End;
end;
Desde ja Agradeço se alguem me der um Retorno.
Obrigado.
Isaias
Isaiasn
Curtir tópico
+ 0Posts
06/01/2005
Massuda
Gostei + 0
06/01/2005
Isaiasn
Se alguem souber me responder eu agradeço.
Gostei + 0
06/01/2005
Massuda
Screen.Forms contem a lista de todos os forms criados e em uso pelo seu programa.
Você está tentando criar uma lista que inclua os forms que não foram criados ainda, mas que se programa pode vir a criar?
Gostei + 0
12/01/2005
Alexandresbo2
Entaum vc naum vai conseguir pegar os forms que estão do outro lado,pois como naum foram criados naum estão na memoria...
Uma vez precisei fazer algo parecido ....Entaum achei uma solução que é a leitura do exe( é bem complexo e se o aplicação for muito grande é demorado) e acabei desistindo disso. Bom se vc quiser posso procurar o fonte .
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)