No muestra mi componente

[__cadetill]

Empezado por roman

O el padre de TLabelTimer pasa a ser el padre de pnlFondo o el padre de pnlFondo pasa a ser el padre de TLabelTimer.

Bueno, yo me refería a la primera opción

jejejejeje

[roman]

Empezado por cadetill

Bueno, yo me refería a la primera opción

Lo sé...

ahora, porque yo me fui con la segunda opción y tuve que corregir el mensaje anterior donde te corregía.

[jachguate]

En todo caso, si lo que se pretende es que la etiqueta aparezca dentro del panel... yo cambiaria la herencia, de manera que el nuevo componente herede del TPanel, y en su creación se fabrique una etiqueta que mostrará la hora... o simplemente que muestre la hora en su propiedad Caption.. que es casi una etiqueta... no???

Hasta luego.

[Diegoval]

Muchas gracias a todos por responderme, pero la verdad es que el problema era otro...

Todo eso que me dijeron yo lo había probado (eso de jugar con los parents) pero me lo seguia sin mostrar como mínimo, pues hasta en algunos casos hasta me tiraba error . Lo que dice jachguate es totalmente verdadero, el componente no sirve para nada y se podría haber hecho uno que herede de TPanel y tocar su propiedad Caption, pero el tema es que yo lo estoy haciendo mas que nada para aprender y no sabía porque no se mostraba, hasta que me mandaron una erspuesta de otro foro que me resultó:

El tema es que cuando le asigno las propiedades de Self.Top, Self.Left, etc. estas propiedades todavía no tienen un valor (ya que el componente se esta creando), solamente por eso es que no se mostraba, ya lo corregí y ahora funciona perfectamente...

Igualmente muchisimas gracias a todos, nuevamente.

[delphi.com.ar]

Me parece que estas cometiendo un error al hacer:

pnlFondo.Top := Self.Top;
pnlFondo.Left := Self.Left;
pnlFondo.Height := Self.Height;
pnlFondo.Width := Self.Width;

Posiblemente lo que quieras hacer es:

pnlFondo.Top := 0;
pnlFondo.Left := 0;
pnlFondo.Height := Self.Height;
pnlFondo.Width := Self.Width;

Recuerda que este componente esta contenido por el Self.

Otra opción puede ser trabajar con BoundsRect y ClientRect o con la propiedad Align := alClient!

Saludos!

[roman]

Empezado por delphi.com.ar

Recuerda que este componente esta contenido por el Self.

¡Pero de aquí parte la confusión! No puede estar contenido en Self ya que Self es un derivado de TLabel y TLabel no es un contenedor. Quizá redefiniendo ValidateContainer pero realmente dudo que tal sea la intención, ¡¿un panel dentro de un label!??

// Saludos

[delphi.com.ar]

Empezado por roman

¡Pero de aquí parte la confusión! No puede estar contenido en Self ya que Self es un derivado de TLabel y TLabel no es un contenedor. Quizá redefiniendo ValidateContainer pero realmente dudo que tal sea la intención, ¡¿un panel dentro de un label!??

Eso me pasa por no haber leído todo el hilo, mismo ahora me doy cuenta que ya lo solucionó!

Saludos!

[[Al González]]

Empezado por Diegoval

...cuando le asigno las propiedades de Self.Top, Self.Left, etc. estas propiedades todavía no tienen un valor (ya que el componente se esta creando), solamente por eso es que no se mostraba...

Tienes razón . Al llamar al constructor heredado:

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

se inicializa el objeto etiqueta a Left = 0, Top = 0, Width = 65 y Height = 17:

constructor TCustomLabel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle + [csReplicatable];
  Width := 65;
  Height := 17;
...

Por lo cual, el objeto TPanel toma las dimensiones iniciales de la etiqueta. Sin embargo, la sentencia

pnlFondo.Parent := Self.Parent;

le asigna un valor de Nil a la propiedad Parent del objeto TPanel, debido a que en ese momento Selft.Parent (o simplemente "Parent"), es decir, la propiedad Parent de la etiqueta, aún no tiene valor asignado. Si tal etiqueta es un control agregado a una forma en tiempo de diseño, entonces será hasta que el componente se cargue, cuando le sea asignado un valor (esto es después de la construcción).

Empezado por roman

...te darás una idea general de que son los controles contenedores y porque entonces no es una buena idea tratar de meter una componente en un TLabel...

De hecho Diegoval no pretendía meter el objeto panel dentro del objeto etiqueta. Sólo los objetos derivados de TWinControl (TLabel no lo es) son asignables a la propiedad Parent de los componentes controles (derivados de TControl).


¡Hasta pronto!

Al González .

Los negocios se deben ajustar a las capacidades humanas, no las capacidades humanas a los negocios. Por una vida laboral sana .

[roman]

Empezado por Al González

De hecho Diegoval no pretendía meter el objeto panel dentro del objeto etiqueta. Sólo los objetos derivados de TWinControl (TLabel no lo es) son asignables a la propiedad Parent de los componentes controles (derivados de TControl).

De hecho sí es lo que pretendía y de ahí las recomendaciones de cadetill y mia.

// Saludos

[[Al González]]

¡Hola a todos!

Román:

Me refiero a que no pretendía meterlo visual y formalmente hablando. Es decir, en ningún momento parece haber intentado que el objeto etiqueta fuera el contendor del objeto panel (como tu lo señalas).

Si revisas de nuevo su código y comentarios, notarás que Diegoval intentaba crear un objeto TPanel dentro de (junto con) la creación del objeto etiqueta, para que la etiqueta estuviese acompañada de un panel con la misma posición, tamaño y contenedor padre. Un reloj con realse por sobreposición visual de controles.

De cualquier manera, reconozco que el tema presentó algunos nudos de confusión, y que tratándose de creación de controles, palabras como dentro se prestan a diversas interpretaciones.

Un abrazo.

Al González .