Cargar Propiedades en el Object Inspector

[dec]

Hola,

A ver si dices algo así... (que hace poco me he pegado con ello):

Código Delphi [-]
unit UComponente;

interface

uses
  Classes;

type
  TElementos = class;
  
  TComponente = class(TComponent)
  private
    FElementos: TElementos;
    procedure SetElementos(elementos: TElementos);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy(); override;
  published
    property Elementos: TElementos read FElementos write SetElementos;
  end;

  TElemento = class(TCollectionItem)
  private
    FNombre: string;
  published
    property Nombre: string read FNombre write FNombre;
  end;

  TElementos = class(TCollection)
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples',[TComponente]);
end;

{ TComponente }

constructor TComponente.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FElementos := TElementos.Create(TElemento);
end;

destructor TComponente.Destroy();
begin
  FElementos.Free();
  inherited Destroy();
end;

procedure TComponente.SetElementos(elementos: TElementos);
begin
  FElementos.Assign(elementos);
end;

end.

[droguerman]

ok es casi perfecto solo que culpa mía me faltó especificar, no quiero usar el TCollection, porque le faltan métodos para antes y despues de insertar o eliminar un elemento, y si los tiene no funcionan bien, ya he probado con added y deleted en delphi 7 y estan marcados como deprecated, es decir quiero algo parecido a esto:

Código Delphi [-]
   TComprobante = class(TPersistent)
      cantidad : extended;
      nombre : string;
   end;


....
 private
     fcomprobantes: TList; //para guardar mis comprobantes
 published
     property  comprobantes:TList;

de crear el editor de propiedades y listar los items me encargo yo, solo que no se como acceder al object inspector para poner en ahi la cantidad y nombre.


saludos y gracias dec