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>