Hallo
flogo hat den richtigen Ansatz geliefert.
So wird der Ansatz umgesetzt:
Delphi-Quellcode:
type
TdddLineSeries = class; // forward Deklaration von TdddLineSeries
TProcessDescription = class(TPersistent)
private
{eigenschaften}
FParent : TdddLineSeries;
public
constructor Create(aParent : TdddLineSeries);
procedure machwas;
end;
...
TdddLineSeries = class(TLineSeries)
constructor TProcessDescription .Create(aParent : TdddLineSeries);
begin
...
FParent:=aParent;
...
end;
...
constructor TdddLineSeries.Create(...);
begin
...
FProcessDescription:=TProcessDescription.Create(Self);
...
end;