Form

Delphi

06/05/2003

Oiii, pessoal...


como faço para adicionar em uma stringlist todos os forms q estão em memória, ou seja, diferentes de ´Nil´????


Celo.steffen

Celo.steffen

Curtidas 0

Respostas

Fbsouza

Fbsouza

06/05/2003

Tenta isso ai chegado,
for i:=0 to application.componentcount-1 do
begin
  stringlist.append(application.components[i].name);
end;



Espero ter ajudado


GOSTEI 0
Obubiba

Obubiba

06/05/2003

Tenta isso ai chegado, 
for i:=0 to application.componentcount-1 do
begin
  stringlist.append(application.components[i].name);
end;


Creio que esse não seja o código mais correto, pois assim, todos os nomes de todos os componentes da aplicação serão passados para a stringlist, para pegar somente os formulários, use o código a seguir, implementado do código passado pelo fbsouza:

for i:=0 to application.componentcount-1 do
begin
if application.components[i] is TForm then
stringlist.append(application.components[i].name);
end;


GOSTEI 0
Fbsouza

Fbsouza

06/05/2003

Foi mal...

O código que eu coloquei vai armazenar todos os forms que forão criados e os datamodules...

Sé vc não tiver Data modules pode usar o que eu coloquei sem problemas
Mas usa o do Obubiba que é garantido.


GOSTEI 0
POSTAR