Club Builder

[neg1414]

Buenas

El caso es que tengo varios Componentes del mismo tipo a los que he denominado de la forma:

TComponent1
TComponent2
TComponent3
.......
TComponent40

Segun la eleccion del usuario se ejecuta un metodo "CambiarCaption" en la que se llama a un procedimiento propio del Componente (la mima llamada para cada componente)


CambiarCaption()
{
TComponent1->Procedimiento();
TComponent2->Procedimiento();
TComponent3->Procedimiento();
.............................
TComponent40->Procedimiento();

}

Mi pregunta es la siguiente: Al ser el procedimiento a ejecutar igual para todos los
Componentes seria posible Evitar la tediosa operacion de ir enumerando uno a uno todos los componentes con su respectiva llamada y hacerlo de una manera mas comoda


Gracias

[Angel]

Si tengo por ejemplo tres botones que van a hacer lo misma función, en la llamada del OnClick pongo en los tres la de un Button1Click. No sé si es esto lo que dices.
_________________
Un saludo

Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)

[best_guitar]

No lo he hecho nunca pero creo que deberias crear un objeto de nombre (name) TComponente y luego hacer un bucle para los n componentes. finalemnte llamar al procedimiento a partir de este objeto.
_________________
Be water my friend.

[neg1414]

En primer Lugar Gracias por responderme

La solucion de botonClick la uso para otro tipo de problemas.

En este caso seria diferente : Se supone que pulso por ejemplo un Boton
y esta accion hara que otro grupo de componentes (todos de la misma clase)
deberan modificar una de sus propiedades accediendo a uno no de sus metodos

Supongamos

void __fastcall TForm1::Button1Click(TObject *Sender)
{

ModificarPropiedades();
}


void ModificarPropiedades()
{

TComponent1->Modificar();
TComponent2->Modificar();
TComponent3->Modificar();
........................ .....
TComponent40->Modificar();
}


Espero Haberme Explicado Bien

Gracias OtraVez.

[migro]

[migro]

Perdón por el despiste:
inicia el bucle con i=1 y termínalo con i<ComponentCount

[neg1414]

Gracias por contestar .

La solucion funciona perfectamente si en el Contenedor (Form) los componentes son todos del mismo tipo (TLabel) . El problema surge si hay otros componentes (Que tambien evalua) que no son TLABEL.

Se te ocurre algo

Yo He probado con

Ansistring NombreComponent;
int i=1;

NombreComponente = "TLabel" + IntToStr(i);

for (int j=0;i<Contenedor>ControlCount);j++)
{
If (Contenedor->Controls[j]->Name ==Nombre)
{
TLabel(Contenedor->Controls[j]).Metodo();
i++; Nombre = "TLabel" + IntToStr(i);
}
}


Compila perfectamente y al ejecutar incluso ccede al Metodo()
de cada TLAbel.
El problema radica en que a la hora de la verdad no se han realizado
los cambios Propuestos en Metodo().

Me huelo que el problema radica en la instrucion:

TLabel(Contenedor->Controls[j]).Metodo();

que deberia ser :

TLabel(Contenedor->Controls[j])->Metodo();

pero no compila.

Se te ocurre algo


Gracias otra Vez

[_Leo]

Que es realmente lo que necesitas ? Cambiar por ejemplo la propiedad "Caption" a todos los controles que la tengan sin importar el tipo ? Algo así por ejemplo:

[neg1414]

Gracias por contestar

Haber si me explico desde el principio

He creado un

[neg1414]

Gracias por contestar

Haber si me explico desde el principio

He creado un Componente VCL deriva de la clase ( tcustumControl)
Este componente contiene un Metodo que entre otras accciones, cambia el aspecto del componente (Accede al metodo Paint()).
El caso es que he colocado unos 40 componentes de esa clase en TPanel
.Cuando el ususario selecciona una opcion todos esos componentes variaran de la misma forma accediendo al Metodo anterior mente citado.

Esta accion la puedo realizar a machon de la forma:

Componente1->MiMetodo()
Componente2->MiMetodo()
Componente3->MIMetodo()
.....................................
Componente40->MIMetodo()


!! TEDIOSA TAREA !!


Mediante el codigo siguiente

Ansistring NombreComponent;
int i=1;

NombreComponente = "Micomponente" + IntToStr(i);

for (int j=0;i<Contenedor>ControlCount);j++)
{
If (Contenedor->Controls[j]->Name ==Nombre)
{
TMicomponente(Contenedor->Controls[j]).Metodo();
i++; Nombre = "MiComponente" + IntToStr(i);
}
}

Accedo Tanto a los Componentes como al Metodo que deseo dentro de ellos, pero los cambios no se realizan (cambiar imagen.....)


Espero Haberme Explicado Bien Gracias OtraVez

posdata en El Contenedor (TPanel) Hay componentes de otras clases.

[_Leo]

Supongo que el código de ejemplo que has puesto realmente no lo tienes así en tu programa sino que te has equivocado al teclear.. lo que resta un poco de claridad.

Prueba de una de estas dos maneras:

- Supongamos que el contenedor es un TPanel llamado Panel1. Usa este ejemplo si lo que quieres es que todos los controles de tipo TMiComponente contenidos en el llamen a ese método:

[neg1414]

Gracias sencillamente Perfecto,