Ver Mensaje Individual
  #3  
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
así lo creo, pero no se que hago mal

FPanelTit representa al Panel2

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;

  ...

Última edición por chrids506 fecha: 16-08-2006 a las 19:03:22.
Responder Con Cita