Componentes en un TTabSheet

[Angel.Matilla]

Me estoy volviendo loco. Tengo esta pantalla:

que es un TPageControl con tres pestañas, cada una con sus TEdit, TImage, etc., y quiero recorrer los elementos de cada pestaña buscando exclusivamente los TImage. Para ello uso este código:

Source = this->FindComponent(PageControl1->ActivePage->Name);
TTabSheet *Sheet = static_cast<TTabSheet *>(Source);
for (nItem = 0; nItem < Sheet->ComponentCount; nItem ++)
{
     Source = Sheet->Components[nCount];
     if (!Source->ClassNameIs("TImage"))
          continue;
}

Las dos primeras líneas las ejecuta sin ningún problema pero al llegar al inicio del bucle me encuentro que Sheet->ComponentCount vale 0 cuando debería vale 12 ó 13. También he comprobado que mientras la pestaña seleccionada tiene, por ejemplo, de dirección de memoria :00B0A758, esa variable Sheet tiene :00B0A19C, con lo cual es evidente que no es el mismo elemento, pero Source sí tiene el mismo valor de la pestaña. ¿Qué estoy haciendo mal?

[Angel.Matilla]

Como sigo probando, voy un paso más allá: En esa pantalla el primer TEdit se llama Titulo_cine y la pestaña Cine; he comprobado con el depurador esto:

Titulo_cine->Parent: :00B3A758
Cine: :00B3A758
Cine->ComponentCount: 0

[Casimiro Noteví]

Creo que no es componentcount, sino controlcount.

[Neftali [Germán.Estévez]]

Prueba a usar ControlsCount y Controls[i] en lugar de ComponentsCount y Components[i].
Ten en cuenta que si el Image está dentrro de un TPanel, deberás repetir el proceso para los controles que sean contenedores (de forma recursiva)

[Angel.Matilla]

Empezado por Neftali [Germán.Estévez]

Prueba a usar ControlsCount y Controls[i] en lugar de ComponentsCount y Components[i].
Ten en cuenta que si el Image está dentrro de un TPanel, deberás repetir el proceso para los controles que sean contenedores (de forma recursiva)

Es el caso: los TImage están dentro de paneles. Gracias por la inidicación

[Angel.Matilla]

Gracias a los dos. Efectivamente es ControlCount. Estaba usando ComponentCount porque en otra función que tengo lo uso así y va bien.

[Angel.Matilla]

Empezado por Neftali [Germán.Estévez]

Prueba a usar ControlsCount y Controls[i] en lugar de ComponentsCount y Components[i].
Ten en cuenta que si el Image está dentrro de un TPanel, deberás repetir el proceso para los controles que sean contenedores (de forma recursiva)

He reemplazado los TPanel por TBevel y listo.

[Neftali [Germán.Estévez]]

Empezado por Angel.Matilla

He reemplazado los TPanel por TBevel y listo.

Es otra opción para simplificar.
Aunque si el TPanel es necesario, tampoco se complica mucho la cosa...

[Angel.Matilla]

Empezado por Neftali [Germán.Estévez]

Es otra opción para simplificar.
Aunque si el TPanel es necesario, tampoco se complica mucho la cosa...

Básicamente es para que en la pantalla se vea que ahí hay algo cuando esté vacío.