Buscar Forms do meu Sistema

Delphi

10/01/2005

Olá amigos, tudo bem, gostaria de saber como eu busco todos os Formularios que pertencem ao meu Projeto, os que esta como Auto-Create eu consegui buscar, mas o que estao no Avaiable Forms, nao consegui, pois chamo eles em tempo de execução. Eu gostaria de saber os Formularios pois ao entrar no sistema vou montar Gerar uma tabela co todos os programas para evitar de eu esquecer de cadastrar os novos formlarios.
Eis aqui a rotina, mas so me mostra formularios do Project/Options/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

Isaiasn

Curtidas 0

Respostas

Isaiasn

Isaiasn

10/01/2005

Será que ninguem nunca precisou de usar desta forma, mas uma vez coloca a pergunta no Ar.
Se alguem souber por favor me responda.
Obrigado.
Isaias


GOSTEI 0
Alexandresbo2

Alexandresbo2

10/01/2005

e ai cara blz....
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
Gandalf.nho

Gandalf.nho

10/01/2005

[b:ccdd293966][color=red:ccdd293966]Notificação de Infração às Regras de Conduta :[/color:ccdd293966][/b:ccdd293966]

Duplicidade
[url]http://delphiforum.icft.com.br/forum/viewtopic.php?p=179314[/url]

Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].


GOSTEI 0
POSTAR