Auf "überliegende" Klasse zugreifen ?

[Olli73]

Zitat von stiftII:

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);