Hey,
ich habe eine Komponente, der ich eine Eigenschaft vom Collection Typ gegeben habe.
property MyCol: TMyCollection read FMyCol write FMyCol;
MyCollection und MyCollectionItem haben folgende Methoden:
Delphi-Quellcode:
type
TMyCollectionItem = class(TCollectionItem)
private
FIrgendwas: String;
function GetDisplayName: String; override;
protected
public
published
property Irgendwas: String read FIrgendwas write FIrgendwas;
end;
TMyCollection = class(TCollection)
private
function GetItem(Index: Integer): TMyCollectionItem;
procedure SetItem(Index: Integer; Value: TMyCollectionItem);
protected
public
function Add: TMyCollectionItem;
property Item[Index: Integer]: TMyCollectionItem read GetItem;
published
end;
Klapt auch alles soweit, dass die Property im
OI angezeigt wird und dass ich Items hinzufügen und entfernen kann. Leider klapt es nicht einem Item einen Wert zur Designtime zuzuweisen. Erstmal habe ich im OnCreate meiner Komponente Code drinnen, der 2 CollectionItems hinzufügt und Irgendwas setzt.
Die Items sehe ich dann auch zur Designtime, aber Irgendwas ist leer. Setze ich jetzt Irgendwas z.b auf "test" und frage den Wert zur Laufzeit ab, so ist dieser wieder leer.
Weiß jemand, woran das liegen könnte?
Gruß Zacherl