TCollection: Problem bei Verwendung in Komponente

[Zacherl]

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

[Apollonius]

Wird TMyCollection.Create mit TMyCollectionItem als Parameter aufgerufen?

[Zacherl]

Ja ..

[Apollonius]

Was steht in der .dfm?

[Zacherl]

Da scheint es korrekt eingetragen zu sein:

Code:

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 284
  ClientWidth = 418
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object dxICQClient1: TdxICQClient
    LoginHost = 'login.icq.com'
    Capabilities = <
      item
      end
      item
      end
      item
        Capability = 'test'
      end
      item
      end
      item
      end
      item
      end
      item
      end
      item
      end
      item
      end
      item
      end>
    ClientDetection = <>
    Left = 152
    Top = 112
  end
end

Wobei ich nicht verstehe, warum die im OnCreate des TdxICQClient zugewiesenen Capabilites nicht eingetragen werden. Da geht es mit:

FCapabilities.Add.Capability := 'irgendwas';

[Zacherl]

So, hatte vergessen bei der Items Property den Setter SetItem auch anzugeben. Klapt allerdings immer noch nicht

Weise ich allerdings zur Laufzeit einem Item einen Wert zu, so wird dieser auch korrekt ausgegeben. Nur zur Designtime will es nicht funktionieren.