Event Handler mehrfach konsumieren

[Kostas]

Hallo Zusammen,

die Frage vorab: ich erzeuge in ein DataModul ein Event und feuere ihn innerhalb des DataModuls.
Mehrere Forms sollen nun den gleichen Event registrieren und jedes für sich abhandeln. Wie macht man das richtig:
Meine Version funktioniert nicht sauber. Starte ich alle konsumierende Forms nur ein mal, funktioniert alles einwandfrei.
Sobald eine Form geschlossen wird, bekomme ich beim nächsten Event eine excetion "stack overflow"
Das hat sicherlich etwas zu tun da ich den Event vor den "verbiegen" speichere in SaveBarcodeEvent und beim Destroy wieder
zurücksetze. Die Frage ist, wie macht man das richtig?


... Das DataModul mit dem Event

Delphi-Quellcode:

type
  Tdm = class(TDataModule)
  private
    { Private-Deklarationen }
    FBarcode:String;
    FOnBarcodeEvent: TBarcodeEvent;
  public
    { Public-Deklarationen }
    property OnBarcodeEvent: TBarcodeEvent read FOnBarcodeEvent write FOnBarcodeEvent;
    procedure MyBarcodeEvent(Sender: TObject; Barcode:String);

  end;

procedure Tdm.VaComm1RxChar(Sender: TObject; Count: Integer);
begin
  ... 
  //Event feuern
  if Assigned(FOnBarcodeEvent)
  then FOnBarcodeEvent(Self, FBarcode);
  ... 
end;


procedure Tdm.DataModuleCreate(Sender: TObject);
begin
  FOnBarcodeEvent := MyBarcodeEvent;

end;

procedure Tdm.MyBarcodeEvent(Sender: TObject; Barcode: String);
begin
  //Event wurde gefeuert
end;

...nun das Form welchen den Event konsumiert. Alle Forms die den gleichen Event konsumieren, haben den gleichen Aufbau.

Delphi-Quellcode:

type
  TfrForm1 = class(TForm)
  private
    { Private-Deklarationen }
    SaveBarcodeEvent:TBarcodeEvent;

    procedure MyBarcodeEvent(Sender: TObject; Barcode:String);

  public
    { Public-Deklarationen }
  end;

procedure TfrForm1.FormCreate(Sender: TObject);
begin
  inherited;
  SaveBarcodeEvent := dm.OnBarcodeEvent;
  dm.OnBarcodeEvent := MyBarcodeEvent;

end;

procedure TfrForm1.FormDestroy(Sender: TObject);
begin
  inherited;
  dm.OnBarcodeEvent := SaveBarcodeEvent;

end;

{}procedure TfrForm1.MyBarcodeEvent(Sender: TObject; Barcode:String);
begin
  if assigned(SaveBarcodeEvent)
  then SaveBarcodeEvent(Sender, Barcode);

  GetInfo(Barcode); 
end;