pegar o nome de todos form´s do projeto

Delphi

04/02/2005

Olá,

gostaria de saber como faço para listyar o nome de todos os form´s do meu projeto dinamicamente.


desde já muito obrigado.


Balceiro

Balceiro

Curtidas 0

Respostas

Massuda

Massuda

04/02/2005

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.


GOSTEI 0
Rômulo Barros

Rômulo Barros

04/02/2005

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;



GOSTEI 0
POSTAR