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. |
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.
En cuanto a tu consulta, revisá si te sirve este enlace. Saludos. |
En realidad lo que me quiero ahorrar es tener que poner "TFArticulos(...." para poder acceder a los componentes del Form.
|
La franja horaria es GMT +2. Ahora son las 12:56:26. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi