Delphi-Quellcode:
constructor TMainClass.Create;
begin
UsefulClass := TUseFulClass.Create;
//UsefulClass.FMainClass := TMainClass.Create; // Macht ja nicht so viel Sinn
end;
Delphi-Quellcode:
constructor TMainClass.Create;
begin
UsefulClass := TUseFulClass.Create;
UsefulClass.FMainClass := self; // aber das hier Würde zumindest funktionieren, auch wenn es etwas unschön ist, wie du an den anderen Kommentaren siehst
end;
Edit: Etwas besser wäre es, wenn du TUseFullClass einen entsprechenden Constructor mit Parameter "Owner" (bzw. "MainClass") hinzufügst und denn so aufrufst:
UsefulClass := TUseFulClass.Create(self);