Ver Mensaje Individual
  #11  
Antiguo 16-08-2006
Avatar de chrids506
chrids506 chrids506 is offline
Miembro
 
Registrado: abr 2006
Posts: 70
Reputación: 21
chrids506 Va por buen camino
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?
Responder Con Cita