Problema con Array de Foms
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.
|