Używanie potomka TOwnedCollection w Delphi
Próbuję utworzyć niestandardowy komponent z właściwością kolekcji. Jeśli jednak spróbuję otworzyć edytor kolekcji podczas projektowania, klikając przycisk „...” w inspektorze obiektów, nic się nie dzieje. Czego mi brakuje
Oto mój potomek 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>
I przedmiot:
<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>