Klassen-Querverweise

[r2c2]

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