Form

Question

Oiii, pessoal...como fa�o para adicionar em uma stringlist todos os forms q est�o em mem�ria, ou seja, diferentes de �Nil�????...

Fbsouza · Answer

Tenta isso ai chegado,[code:1:4e5877be7d]for i:=0 to application.componentcount-1 dobegin  stringlist.append(application.components&#91;i&93;.name);end;[/code:1:4e5877be7d]Espero ter ajudado...

Obubiba · Answer

[quote:a3962123ef=�fbsouza�]Tenta isso ai chegado,[code:1:a3962123ef]for i:=0 to application.componentcount-1 dobegin  stringlist.append(application.components&#91;i&93;.name);end;[/code:1:a3962123ef][/quote:a3962123ef]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 dobegin  if application.components is TForm then     stringlist.append(application.components.name);end;...

Fbsouza · Answer

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 problemasMas usa o do Obubiba que � garantido....

F�rum Form #158130