Delphi-PRAXiS - Delphi Neue Komponente: Objektinspektor: Keine Expandierung möglich

Hi,

ich möchte mir eine neue Komponente erstellen. Dieses soll ein erweitertes StringGrid sein.

Nun stehe ich vor dem Problem eine "aufklappbare" Eigenschaft im Objektinspektor korrekt zu integrieren. Diese Eigenschaft ist einfach ein weiteres Objekt mit mehreren Properties.
Die Eigenschaft "CellColors" wird im Objektinspektor auch angezeigt, es wird auch das + Zeichen zum aufklappen gezeigt, aber beim Klick auf das + kommt die Meldung: "Keine Expandierung möglich".

Was mache ich also falsch?

Hier einmal der Code (die relevanten Stellen) dazu:

Delphi-Quellcode:

			type

  TCellColors = class(TObject)

  private

    FColorEvenRow: TColor;

    FColorFixedCell: TColor;

    FColorSelection: TColor;

    FColorOddRow: TColor;

    procedure SetColorEvenRow(const Value: TColor);

    procedure SetColorFixedCell(const Value: TColor);

    procedure SetColorSelection(const Value: TColor);

    procedure SetColorOddRow(const Value: TColor);

  public

    constructor Create; overload;

  published

    property ColorFixedCell: TColor read FColorFixedCell write SetColorFixedCell;

    property ColorSelection: TColor read FColorSelection write SetColorSelection;

    property ColorEvenRow: TColor read FColorEvenRow write SetColorEvenRow;

    property ColorOddRow: TColor read FColorOddRow write SetColorOddRow;

  end;

  TAGStringGrid = class(TStringGrid)

  private

    FCellColors: TCellColors;

    procedure SetCellColors(const Value: TCellColors);

    { Private-Deklarationen }

  protected

    { Protected-Deklarationen }

    procedure DrawCell(ACol, ARow: Longint; ARect: TRect;

      AState: TGridDrawState); override;

  public

    { Public-Deklarationen }

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; reintroduce;

  published

    { Published-Deklarationen }

{ Diese Eigenschaft soll im Objektinspektor bearbeitbar sein! 

  Also, wie muss ich das deklarieren?

}

    property CellColors: TCellColors read FCellColors write SetCellColors; 

  end;

procedure Register;

gruß
angos