Problema con Array de Foms

[glopez]

Tengo implementado un Array de forms de la siguiente forma

Array_Ventanas : Array [0..Maximo_Ventanas_abiertas] of Tform;

En esta array voy guardando las ventanas que abro desde mi aplicacion, que pueden ser de clientes, proveedores articulos...
Las creo de la siguiente forma:

Array_Ventanas[x] := TFArticulos.Create(Self); // si es un articulo
Array_Ventanas[x] := TFClientes.Create(Self);// si es un cliente
...
El problema que tengo, es que si quiero acceder a por ejemplo a un label que está en todos mis forms (Label1) tengo que hacerlo de la siguiente forma:

TFArticulos(Array_ventanas[x]).Label1.Caption:='Prueba'; // si es un articulo
TFClientes(Array_ventanas[x]).Label1.Caption:='Prueba'; // si es un cliente
...

Es decir tengo que saber que tipo de form está en cada posición del array con lo que tengo un monton de lineas duplicadas.
¿Esto se puede hacer de otra forma utilizando punteros u otro método para simplificar al máximo el código?

Gracias.

[ecfisa]

Hola glopez.

En principio no es necesario que declares un arreglo para los forms, Delphi ya permite acceder a ellos mediante la propiedad vectorial Forms de la clase TScreen.

Código Delphi [-]
// Mostrar los forms
var
  i: Integer;
begin
  for i:= 0 to Screen.FormCount-1 do
    Screen.Forms[i].Show;
...

// para tu caso podrías hacer:
begin 
   TFArticulos(Screen.Forms[1]).Label1.Caption:='Prueba';
...

En cuanto a tu consulta, revisá si te sirve este enlace.

Saludos.

[glopez]

En realidad lo que me quiero ahorrar es tener que poner "TFArticulos(...." para poder acceder a los componentes del Form.