Problema con Jerarquias en un Componente

[[maeyanes]]

Así es, solo que en la declaración del método tienes que poner la directiva override.

También puedes probar el método que comentó Román, puede que simplifique más las cosas. La verdad no sabía que existía ese método.


Saludos...

[roman]

Hace mucho tiempo que no hago estas cosas pero creo recordar que SetSubcomponent apareció en no se cuál versión para facilitar lo que antes se hacía como indica Marcos.

// Saludos

[chrids506]

Muchas gracias, probaré los 2

[chrids506]

Entonces según la tecnica que propones el componente se tendría que crear así:

Código Delphi [-]
constructor TExpPanel.Create(AOwner : TComponent);
begin
   inherited Create(AOwner);       {Llama al constructor original (heredado)}

   //////////////////Panel2 >>>
    FPanelTit := TPanel.Create(self);  {Creamos el Panel}
   
    FPanelTit.SetSubcomponent(true);
   
    FPanelTit.Height := 60;
    FPanelTit.width := width;
    FPanelTit.top := 0; 
    FPanelTit.left := 0;
    FPanelTit.parent := self;
    FPanelTit.visible := true;

  ...

verdad?