Hallo uwewo,
warum nicht Constructor von
TControlDateItem überladen?
Delphi-Quellcode:
constructor Create(AOwner: TComponent; Source : TDateItem); overload;
...
constructor Create(AOwner: TComponent; Source : TDateItem);
begin
inherited Create(aOwner);
FDateItem := TDateItem(Source);
...
Gruss