Recorrer todos los formularios de mi Aplicacion

[rgstuamigo]

Ni modos lo pongo sin sintaxis delphi

while ( i<Form2.ControlCount)

[[Delphius]]

Hola rgstuamigo,
No tengo Delphi a mano, pero si no me falla la memoria, TApplication tiene una propiedad vectorial llamada Forms. Mediante esta se puede iterar y trabajar con los forms abiertos al momento:

Código Delphi [-]
Application.Forms[0]....;

Saludos,

[rgstuamigo]

Hola Delphius , al parecer no existe esa propiedad que mencionas.

[[Delphius]]

Perdón, Screen.Forms y con Screen.FormsCount.

Saludos,

[rgstuamigo]

Ok Gracias amigo Delphius parece que funciona.
Pero mira la curiosidad que se me pego; ¿que tiene que ver Screen con los Form? a mi parecer la propiedad Forms deberia ser parte del objeto
Application Bueno es cosa de mi nomas.
Otra cosa que me resulto curiosa fue que que el objeto Application tiene una propiedad Components que segun yo lo entendia que suponia que eran todos y absolutamente todos los componentes de la aplicacion ,claro esta por llamarse Application pero al parecer no es asi si no que serian solo los formularios(vaya ¿no?¿quien entiende?) de la aplicasion claro con la excepcion de que el Components[0] no se sabe cual es, pues la unica diferencia que veo entre Screen.FormsCount y Application.ComponentCount seria (segun yo) que el segundo tiene uno mas,es decir aparte de tener todos los formularios tiene uno mas ¿Pero quien es es uno mas?, pues no lo se.
por que ni siquiera se puede saber su nombre ni para que se utiliza.
Yo lo probe con este codigo:

Código Delphi [-]
procedure TForm1.Button8Click(Sender: TObject);
var i:Byte;
begin
 for  i:=0  to Application.ComponentCount-1 do
  begin
  ShowMessage(Application.Components[i].Name);
 end;
end;

Seguro habra algun GURU que nos explique,.
Saludos y muchas gracias....

[[Delphius]]

Empezado por rgstuamigo

Seguro habra algun GURU que nos explique,.
Saludos y muchas gracias....

Si, seguro hay un GURU: se llama F1

Saludos,

[rgstuamigo]

Si, seguro hay un GURU: se llama F1

Je,je,je,je .