No muestra mi componente

[Diegoval]

Hola foro.

El problema que tengo es el siguiente: estoy desarrollando un componente reloj que hereda de TLabel y mustra la hora (muy facil, nada complicado), ahora el problema es cuando quiero crear dentro de este componente otro que se cree con él, por ejemplo un TPanel (solamente porque queda bonito), ahora lo que hago es lo siguiente: en el Constructor del TLabel creo el TPanel...todo bien, me compila y todo, pero cuando voy a probarlo... ¡el TPanel no aparece!. Encima también creo un TTimer que funciona perfectamente, no se mas que probar...!!!

El constructor es el siguiente:

Constructor TLabelTimer.Create(AOwner : TComponent);
Begin
inherited Create(AOwner);

pnlFondo := TPanel.Create(AOwner);
pnlFondo.Top := Self.Top;
pnlFondo.Left := Self.Left;
pnlFondo.Height := Self.Height;
pnlFondo.Width := Self.Width;
pnlFondo.Parent := Self.Parent;
end;

En estos dias estuve haciendo otro componente que también tenía que crear otro componente (en este caso era con dos TShape) y tampoco pude hacerlo, la verdad es que no se me ocurre nada...

Muchas gracias
Saludos
Diego Valcarce

[andres1569]

Hola:

Prueba a poner pnlFondo.Visible := TRUE; a ver si así aparece; por cierto todos esos Self sobran, no veo que haya ningún conflicto de ámbito de variables.

[Diegoval]

Si, eso lo probé también, pero me sigue sin aparecer, no se por qué será...

Igualmente muchas gracias...

[marcoszorrilla]

El constructor es el siguiente:

Constructor TLabelTimer.Create(AOwner : TComponent);
Begin
inherited Create(AOwner);

pnlFondo := TPanel.Create(AOwner);
pnlFondo.Top := Self.Top;
pnlFondo.Left := Self.Left;
pnlFondo.Height := Self.Height;
pnlFondo.Width := Self.Width;
pnlFondo.Parent := Self;
end;

Un Saludo.

[roman]

Empezado por marcoszorrilla

pnlFondo.Parent := Self;

Me parece que no Marcos. Esta línea indicaría que la componente en sí es el 'parent'. Pero la componente es un derivado de TLabel la cual no es un contenedor.

// Saludos

[__cadetill]

Empezado por roman

Pero la componente es un derivado de TLabel la cual no es un contenedor.

Yo creo que ese es el problema, que se está intentando poner un objeto dentro de otro que no es contenedor

No obstante, esta linea

 pnlFondo.Parent := Self.Parent;

hace que el padre del objeto pnlFondo sea el padre de TLabelTimer y, realmente (creo) que lo muestra, pero por debajo de TLabelTimer y por eso no se ve en pantalla