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;