recorrer componentes

[NEG1414]

Es posible al igual que se pueden recorrer todos los componentes de un formulario recorrer solo los que esten dentro de otro componente por ejemplo
un TPANEL

Gracias

[jachguate]

Supongo que por componentes te referís, mas específicamente, a controles... pues un componente que no sea un control (por ejemplo, un TQuery) no puede "estar" dentro de un TPanel.

Si hablamos de controles, te servirá el siguiente código; si no.. por favor explicate mejor.

Código Delphi [-]
  for I:= 0 to Panel1.ControlCount - 1 do
    MemoControles.Lines.Add(Panel1.Controls[i].Name);

Hasta luego.

[NEG1414]

Gracias por la respuesta, Exactamente eso era lo que queria... y ya puestos prodrias darme tambiem respuesta a la segunda parte del Problema.

El caso es que dentro del TPanel en cuestion e colocado una serie (muchos)
componente vcl creados por mi todo de la misma clase.
Cuando el programa realiza una accion todos ese componentes deberan acceder a un metodo propio (tamben original). el caso es que primero se me ocurrio ir uno a uno accediendo al metodo en cuestion.

Componente1->Metodo
Componente2->Metodo
Componente3->Metodo
.......................
ComponenteN->Metodo

Dado lo tedioso del sistema e optado por rrecorrer uno a uno todos los componentes del Panel y cuando coincida uno con el nombre deseado acceder al Metodo...

int i=1;
Nombre = "Componente"+IntToStr(i)

For (int j=0; j<PANEL->ComponentCount;j++)
{}
El problema surge Como puedo comparar el nombre y una vez comparado
si es el deseado acceder al Metodo en cuestion

Gracia sOtra VEA

[jachguate]

En delphi, así:

Código Delphi [-]
for I:= 0 to Panel1.ControlCount - 1 do
  if Panel1.Controls[i].Name = 'Edit1' then
    TEdit(Panel1.Controls[i]).Text := 'Hola'
  else if copy(Panel1.Controls[i].Name, 1, 5' = 'Boton') then
    TButton(Panel1.Controls[i]).OnClick := Button7Click;

Hasta luego.

[NEG1414]

Gracias por contestar .

En principio la Solucion Es perfecta Compila Ejecuta Todos los pasos que debe de hacer pero al final surge un problema:


Pongo como ejemplo componentes TLabel (no lo es)

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 accede 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 esta en la instruccion:

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

que deberia ser :

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

pero no compila.

Se te ocurre algo


Gracias otra Vez

[[Lepe]]

Yo diría que hasta aquí hemos llegado .

Si es un TLabel debería funcionar, pero es algo que tú has construido, sería más fácil saber qué es, o al menos qué hace. Puede que tu "método" esté intentando pintar algo en el form, y las rutinas de pintado tienen poca prioridad en windows. No será el caso, pero es un ejemplo de cómo puede afectar a tu componente de forma colateral.

Quizás necesites un Application-> ProcessMessages, pero vamos, que las opciones son muchas y hablando en general es muy dfícil acertar.

Código Delphi [-]
for (int j=0;i<= (Contenedor->ControlCount);j++)
{
If (Contenedor->Controls[j]  is TMiComponente) then

Este código no se fija en el nombre del componente, sino en el "tipo", en la jerarquía de ancestros. Podría considerarse un código más seguro, ya que el nombre de un componente no tiene relación directa con la Clase que instancia.

Saludos

[NEG1414]

En primer lugar gracias por contestarme

El Metodo del componente(los comomponentes) al que accedo una de sus funciones si es modificar su aspecto visual (Paint()) tiene otras.

Dicho esto No entiendo lo que me quieres decir, El codigo que me das si entiendo bien es para acceder a cada uno de los componentes que deseo
proceso que logro perfectamente con mi algoritmo.

El problema que tengo es que cuando se selecciona el Componente elegido
y accedo al metodo en cuestion...

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


Accion que tambien realiza,pero a la hora de la verdad no ejecuta los cambios que Metodo() dispone..

Espero Haberme Explicado bien

Gracias OtraVez
en el componente que Metodo()

[[Lepe]]

Al parecer he tocado la flauta (como el burro ).

No trabajo con C++ por lo que no sé si debes usar el operador punto o el operador flecha al llamar al método en cuestión, (supongo será la flecha, por aquello de punteros).

Como he dicho, los mensajes de repintado, tienen poca prioridad en windows, así que se acumulan dichos mensajes pero no se procesan inmediatamente (por ello piensas "que no ejecuta los cambios aún cuando entra en el método"), es lógico y normal en windows.

Una opción:

for (int j=0;i<= (Contenedor->ControlCount);j++)
{
If (Contenedor->Controls[j]->Name ==Nombre)
{
TLabel(Contenedor->Controls[j]).Metodo();
TLabel(Contenedor->Controls[j]).Update; // forzamos a que se pinten los cambios hechos inmediatamente.
i++; Nombre = "TLabel" + IntToStr(i);
}
}

Saludos

[jachguate]

Que para aplicar un molde en c no era de la forma (Tipo) Variable?

Digamos que algó así:

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

O algo así... pues no tengo a mano c++ para comprobarlo.

Hasta luego.

[[Lepe]]

Será, lo puse inconscientemente, claro, con lo inconsciente que soy ... .


Saludos

[[escafandra]]

Empezado por jachguate

Que para aplicar un molde en c no era de la forma (Tipo) Variable?

Digamos que algó así:

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

O algo así... pues no tengo a mano c++ para comprobarlo.

Hasta luego.

Hola, los casting en C++ son como dices, el problema está en los componentes VCL que en princi`pio están diseñados para delphi. Builder C++ tiene una forma eficaz de realizar el cast de forma segura:
Tipo* T = static_cast<Tipo*> (puntero) ó
Tipo* T = dynamic_cast<Tipo*> (puntero)
Devuelven un puntero nulo si no puede hacer el cast.

Un ejemplo de código sería el siguiente:

TLabel *L;
for(int n=0; n<Contenedor->ControlCount; n++){
    L = static_cast<TLabel*>(Controls[n]);
    if(L) L->Metodo();
}

Espero que te ayude.
Saludos.

[jhonny]

Solo una cosa, ¿Porque no seguiste el hilo que te respondi y que trataba sobre lo mismo (O parecido) la semana pasada? http://www.clubdelphi.com/foros/showthread.php?t=51086

[jachguate]

Empezado por escafandra

Builder C++ tiene una forma eficaz de realizar el cast de forma segura:
Tipo* T = static_cast<Tipo*> (puntero) ó
Tipo* T = dynamic_cast<Tipo*> (puntero)

Claro.. delphi también la tiene: los operadores is/as, que uso siempre que es probable que en tiempo de ejecución el objeto en cuestión sea del tipo requerido.

Código Delphi [-]
  if not (Components[i] is TEdit) then
    (Components[i] as TButton).Enabled := True;

Cuando estoy seguro que no es necesario, utilizo el moldeado directo, por creer que será mas rápido en tiempo de ejecución... manías que tiene uno de que todo sea tan óptimo como sea posible.

Hasta luego.