Cuantos elementos hay en un objeto

[ecfisa]

Hola.

Empezado por Angel.Matilla

...
Este es el panel concreto en el que estoy haciendo las pruebas. Tiene dos TLabelEdit, dos TLabel y dos TComboBox, además del propio TPanel. Sin embargo, poniendo el código que ma ha sugerido ecfisa, la propiedad ControlCount me dice que tiene ocho elementos y eos me tiene muy despistado. ¿Cuál o cuáles son los que sobran?

Acabo de comprobar que el problema lo ocasiona el TLabeledEdit y reconozco que al no haber usado ese componente, nunca había notado el detalle.

Basta con que haya una aparición del control para que la propiedad ControlCount del contenedor se incremente en uno y la propiedad ControlCount se incrementa en uno por cada TLabeledEdit añadido (es decir que un TPanel que incluya tres LabelEdits, tiene en la propiedad ControlCount el valor seis).

Tal vez el incremento se deba a que el TLabeledEdit es un control de edición que tiene asociado un TLabel...

Saludos

[ecfisa]

Hola.

Busqué en pero no pude encontrar referencia a ese comportamiento .

Se me ocurren dos soluciones, la primera mediante una función miembro:

Código PHP:

...
class THWinControl : public TWinControl {
public:
  int CtrlCount() {
    int n = ControlCount;

    for(int i = 0; i < ControlCount; i++)
      if(Controls[i]->ClassNameIs("TLabeledEdit")) n--;
    return n;
  }
};
...

/* Ej. de uso */
void __fastcall TForm1::Panel1Exit(TObject *Sender)
{
  THWinControl* HWC = static_cast<THWinControl*>(LabeledEdit1->Parent);
  Label2->Caption = HWC->CtrlCount();
} 


o mas simple, mediante una función:

Código PHP:

...
int CtrlCount(TWinControl* WC)
{
  int n = WC->ControlCount;

  for(int i = 0; i < WC->ControlCount; i++)
    if(WC->Controls[i]->ClassNameIs("TLabeledEdit")) n--;

  return n;
}

/* Ej. de uso */
void __fastcall TForm1::Panel1Exit(TObject *Sender)
{
   Label2->Caption =  CtrlCount(LabeledEdit1->Parent);
} 


Saludos

[Angel.Matilla]

Empezado por ecfisa

Basta con que haya una aparición del control para que la propiedad ControlCount del contenedor se incremente en uno y la propiedad ControlCount se incrementa en uno por cada TLabeledEdit añadido (es decir que un TPanel que incluya tres LabelEdits, tiene en la propiedad ControlCount el valor seis).

Tal vez el incremento se deba a que el TLabeledEdit es un control de edición que tiene asociado un TLabel...

Saludos

Efectivamente. Me he dado cuenta al hacer las pruebas; aparecen para cada TLabeledEdit dos elementos: un Edit y un SubLabel. De todas formas con el código que puse ayer me vale porque lo que necesito es comprobar que todos los TLabeledEdit y TComboBox tienen contenido.