Fórum pegar o nome de todos form´s do projeto #267537
04/02/2005
0
Olá,
gostaria de saber como faço para listyar o nome de todos os form´s do meu projeto dinamicamente.
desde já muito obrigado.
gostaria de saber como faço para listyar o nome de todos os form´s do meu projeto dinamicamente.
desde já muito obrigado.
Balceiro
Curtir tópico
+ 0
Responder
Posts
04/02/2005
Massuda
Você usar a variável global Screen e usar as propriedades FormCount e Forms para ter acesso a todos os forms abertos pelo seu programa.
Responder
Gostei + 0
04/02/2005
Rômulo Barros
procedure TForm1.FormCreate(Sender: TObject);
Var
Cont : Integer;
begin
With(Application)Do
Begin
For Cont := 0 To ComponentCount -1 Do
Begin
If(Components[Cont] Is TForm)Then
Begin
ShowMessage(TControl(Components[Cont]).Name);
End;
End;
End;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)