Propertys von Objekten in TCollectionItem ansprechen

[uwewo]

Hallo,

es läßt mir einfach keine Ruhe, gibt es denn wirklich nicht die Möglichkeit TDateItem in TControlDateItem bekannt zu machen, so daß ich die propertys von TControlDateItem nach TDateItem
verschieben kann

Schreibe ein paar Kommentare in den Source, wie ich es mir vorstelle.

Delphi-Quellcode:

  TControlDateItem = class(TGraphicControl) 
  private 
  //Das hier neu
  FDateItem : TDateItem;
  protected 
    procedure Paint; override; 
  public 
   constructor Create(AOwner: TComponent); override; 
   destructor Destroy; override; 
  published 
   //Das hier neu
   property DateItem : TDateItem read FDateItem write FDateItem;
end; 

//****************************************************************************** 

  TDateItem = class(TCollectionItem) 
  private 
    FControlDateItem : TControlDateItem; 
    FParent          : TDateItems; 
    //stammt ursprünglich aus TControlDateItem
    FBackColor : TColor; 
  protected 
  public 
    constructor Create(Collection: TCollection); override; 
    destructor Destroy; override; 
    //stammt ursprünglich aus TControlDateItem
    procedure SetBackColor(const Value: TColor);
  published 
    property ControlDateItem : TControlDateItem read FControlDateItem write FControlDateItem; 
   //stammt ursprünglich aus TControlDateItem
    property BackColor : TColor read FBackColor write SetBackColor;
  end;

implementation 


//****************************************************************************** 
//***** ControlDateItem ******************************************************** 
//****************************************************************************** 

constructor TControlDateItem.Create(AOwner: TComponent); 
begin 
    inherited Create(AOwner);  { immer den geerbten Konstruktor aufrufen } 
    //????????????????????????????????????????????????????? 
    //Hier ist es unklar wie auf die propertys zugreifen
    //?????????????????????????????????????????????????????
    FDateItem := //?????????????
    FDateItem.BackColor      := clWhite; 
end;

Hat dazu denn wirklich keiner eine Idee?

Uwe