operator is und as

[Leuselator]

Variation zum Thema:

Delphi-Quellcode:

type
  TFormA = class;
  TFormB = class;
  TFormC = class;

  TFormA = class(TForm)
    private
      DasCForm : TFormC;
    ...
    procedure MachBlaBlaMitMir(Sender:TObject);
    ...
  end;

  TFormB = class(TForm)
    ...
    procedure MachBlaBlaMitMir(Sender:TObject);
    ...
  end;
 
  TFormC = class(TForm)
  private
    FTuDochWas : TNotifyEvent;
    ...
  public
    property TuDochWas : TNotifyEvent read FTuDochWas write FTuDochWas;
    ...
  end;
iplementation

procedure TFormA.ErzeugeFormC
begin
  if not Assigned(TFormC) then begin
    DasCForm := TFormC.Create(self);
    DasCForm.TuDochWas := MachBlaBlaMitMir;
    DasCForm.Show;
  end;
end;

procedure TFormA.MachBlaBlaMitMir(Sender:TObject);
begin
  ...
end;

procedure TFormB.MachBlaBlaMitMir(Sender:TObject);
begin
  ...
end;

TFormC.MachAktionMitMutterForm
begin
  if Assigned(FTuDochWas) then begin
    FTuDochWas; // funzt mit jeder art von Mutterform, egal ob TFormA,-B,D,EFGHIJKLM...
    // wenn das nur einmal passieren soll, dann:
    FTuDochWas := nil;
  end;
end;

Code nicht getestet/so nicht funktional/nur sinngemäßer Richtungshinweis

Gruß