Hola...
Agregando...
La clase que va a contener las subpropiedades debe descender de
TPersistent para que estas puedan guardar sus valores en el
DFM.
Código Delphi
[-]
interface
type
TSubProperty = class(TPersistent)
private
FNombre: string;
FApellidos: string;
published
property Nombre: string read FNombre write FNombre;
property Apellidos: string read FApellidos write FApellidos;
end;
TParentComponent = class(TComponent)
private
FSubProperty: TSubProperty;
procedure SetSubProperty(Value: TSubProperty);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property SubProperty read FSubProperty write SetSubProperty;
end;
implementation
constructor TParentComponent.Create(AOwner: TComponent);
begin
inherited;
FSubProperty := TSubProperty.Create
end;
destructor TParentComponent.Destroy;
begin
FSubProperty.Free;
inherited
end;
procedure TParentComponent.SetSubProperty(Value: TSubProperty);
begin
FSubProperty.Assign(Value) end;
Saludos...