Verwendung von TOwnedCollection descendant in Delphi

Ich versuche, eine benutzerdefinierte Komponente mit einer Sammlungseigenschaft zu erstellen. Wenn ich jedoch versuche, den Auflistungseditor während der Entwurfszeit durch Klicken auf die Schaltfläche "..." im Objektinspektor zu öffnen, geschieht nichts. Was mir fehlt

Hier ist mein Nachkomme von TCollection:

<code>  TMyCollection = class(TOwnedCollection)
  private
    function GetItem(Index: Integer): TMyCollectionItem;
    procedure SetItem(Index: Integer; const Value: TMyCollectionItem);
  public
    function Add : TMyCollectionItem;
    property Items[Index: Integer]: TMyCollectionItem read GetItem write SetItem;
  end;
</code>

Und der Artikel:

<code> TMyCollectionItem = class(TCollectionItem)
  private
    FValue: integer;
  protected
    function GetDisplayName: string; override;
  public
    procedure Assign(Source: TPersistent); override;
    constructor Create(Collection: TCollection); override;
    destructor Destroy; override;
  published
    property Value : integer read FValue write FValue;
  end;
</code>

Antworten auf die Frage(1)

Ihre Antwort auf die Frage