Zurück greifen auf "Mutter-Objekt"

[Neutral General]

Hi,

Was du in deinem Fall glaube ich machen könntest wäre das hier:

Delphi-Quellcode:

Unit unit1;

interface

uses Unit2;

type
  TObjectA = class
    b: tObjectB;
    procedure DoSomething;
  end;

Delphi-Quellcode:

Unit unit2;

interface

type
  TObjectB = class
    a: Pointer;
    procedure AccessA;
  end;

implementation

uses Unit1;

procedure TObjectB.AccessA;
var a2: TObjectA;
begin
  a2 := TObjectA(a);
  a2.DoSomething;
end;

Gruß
Neutral General