Ver Mensaje Individual
  #2  
Antiguo 01-11-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
Hola, lo mejor que podrias hacer es crear una clase con las propiedades que tu quieres 'jerarquizar', y crear un objeto de tu clase dentro de tu componente, por ejemplo, y este asignarlo a una propiedad. Deberas crearlo en el create y destruirlo (si no tiene owner) en el destroy

Código Delphi [-]

private
FMiClase : TMiClase
...
public
constructor Create(AOwner : TComponent); override;
destructor  Destroy; override;
published
property MiClase : TMiClase read FMiClase write FMiClase;

...

constructor TComp.Create(AOwner : TComponent);
begin
       inherited Create(AOwner);
       FMiClase := TMiClase.Create;
       ...
end;

destructor TComp.Destroy;
begin
        if Assigned(FMiClase) then FMiClase.Free;
        ...
        inherited Destroy;
end;

Última edición por coso fecha: 01-11-2008 a las 17:34:09. Razón: reescribir
Responder Con Cita