Neue Komponente: Objektinspektor: Keine Expandierung möglich

[angos]

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

[Blup]

Vieleicht so:
TCellColors = class(TPersistent) Eventuell noch Assign() überschreiben.

[angos]

Vielen Dank. Das wars!

Gruß
angos