Ver Mensaje Individual
  #7  
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
a ver si entendí, agrego esto en los protected:

Código Delphi [-]
   protected
    { Protected declarations }
   procedure GetChildren(Proc: TGetChildProc; Root: TComponent);

agrego este procedimiento:

Código Delphi [-]
procedure TExpPanel.GetChildren(Proc: TGetChildProc; Root: TComponent);
begin
  Proc(FPanelTit)
end;

y lo creo 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.Height := 60;
    FPanelTit.width := width;
    FPanelTit.top := 0; 
    FPanelTit.left := 0;
    FPanelTit.parent := self;
    FPanelTit.visible := true;

  ...

o no?

P.D.:Muchas gracias a los 2 por el tiempo que han dedicado a responderme
Responder Con Cita