Es gibt noch zwei - nicht besonders schöne, aber dennoch funktionierende Möglichkeiten:
- TypeCasts:
Delphi-Quellcode:
Parent: TObject;
implementation
uses
ParenTUnit;
procedure DoSomething;
begin
(Parent as TParent).Irgendwas := 0;
end;
- über ne (globale) Variable auf die anderen Klassen zugreifen:
Delphi-Quellcode:
unit Main_class
MainClass =
class(TObject)
private
FParent: TParent;
FChild: TChild;
public
<entsprechende properties>;
...
unit MainForm_U;
var
Form1: Form1;
MainClass: TMainClass;
unit Child_class
TParent =
class(TObject)
...
procedure DoSomething;
begin
MainClass.Parent.Irgendwas := 0;
end;
Letzterses funktioniert aber nur, wenn du nur eine Instanz deiner Referenzierten Klasse hast. Alles andere wird mit der Zeit unübersichtlich.
mfg
Christian