Objekt Kommunikation

[fajac]

Ein Event ist die Lösung. z.B.

Delphi-Quellcode:

type
  TObjectData = class
  private
    FNotify : TNotifyEvent;
  public
    property OnNotify : TNotifyEvent read FNotify write FNotify; 
    procedure NotifyGUI;
  end;


implementation

procedure TObjectData.NotifyGUI;
begin
  if Assigned (FNotify) then
    FNotify (Self);
end;

und in UnitGUI:

Delphi-Quellcode:

type 
  TObjectGUI = class
  private
    Data : TObjectData;
    procedure OnNotify (Sender : TObject);
  public
    Constructor Create; 
  end;

implementation 

constructor TObjectGUI.Create;
begin
  Data := TObjectData.Create;
  Data.OnNotify := OnNotify;
end;

procedure OnNotify (Sender : TObject);
begin
  { Wird aufgerufen wenn in TObjectData NotifyGUI durchlaufen wird. }
end;