Fórum Forms do projeto #297760
29/09/2005
0
estou com um projeto mdi, e gostaria de saber como eu poderia pegar todos os forms de meu projeto via programacao..
teria dessa forma:
for i:= 0 to application.componentcount do
begin
if components[i] is TForm thne..
....
...
end;
mas acho que ficaria meio demorado, pois terei muitos forms e muitos compontes em cada form..
teria alguma forma mais agil?????
teria dessa forma:
for i:= 0 to application.componentcount do
begin
if components[i] is TForm thne..
....
...
end;
mas acho que ficaria meio demorado, pois terei muitos forms e muitos compontes em cada form..
teria alguma forma mais agil?????
Zumbi
Curtir tópico
+ 0
Responder
Posts
29/09/2005
Michael
Olá!
Se os forms forem criados automaticamente pelo Delphi, isto é, se estiverem na lista [b:1bb6a8c301]Auto-create forms[/b:1bb6a8c301], vc pode acessar este valor pela propriedade [b:1bb6a8c301]FormCount[/b:1bb6a8c301], do objeto [b:1bb6a8c301]Screen[/b:1bb6a8c301].
[]´s
Se os forms forem criados automaticamente pelo Delphi, isto é, se estiverem na lista [b:1bb6a8c301]Auto-create forms[/b:1bb6a8c301], vc pode acessar este valor pela propriedade [b:1bb6a8c301]FormCount[/b:1bb6a8c301], do objeto [b:1bb6a8c301]Screen[/b:1bb6a8c301].
[]´s
Responder
Gostei + 0
29/09/2005
Zumbi
eles nao sao criados pelo auto-create.
pios eles sao mdichild, ai ficariam abertos.......
pios eles sao mdichild, ai ficariam abertos.......
Responder
Gostei + 0
29/09/2005
Massuda
Durante a execução, no form principal (aquele com estilo fsMDIForm) existe uma lista dos forms MDIChild abertos acessível pela propriedade TForm.MDIChildren; o total de forms nessa lista é dado pela propriedade TForm.MDIChildCount. Este exemplo mostra como fechar todas as janelas MDIChild...
var
I: Integer;
...
// isto só funciona no form principal
for I := MDIChildCount - 1 downto 0 do
MDIChildren[I].Close;
...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)