Usando TOwnedCollection descendant en Delphi
Estoy tratando de crear un componente personalizado con una propiedad de colección. Sin embargo, si intento abrir el editor de colecciones durante el tiempo de diseño haciendo clic en el botón "..." en el inspector de objetos, no ocurre nada. ¿Qué me estoy perdiendo?
Aquí está mi descendiente 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>
Y el artículo:
<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>