Datenmodul

[Furtbichler]

Bei Events übergibt man -per Konvention- noch den Sender, also den Auslöser des Events. Daran kann der Empfänger des Events ermitteln, von wem das Ereignis kommt. In deinem Fall ist das überflüssig, weil es sowieso das Datenmodul ist, aber wenn Du mehrere Datenmodule hättest, könntest Du anhand des Absenders noch zusätzliche Informationen anzeigen.

Deine Lösung ist ansonsten vollkommen korrekt.

Also (nicht besser, aber eben Standard)

Delphi-Quellcode:

// 1. neue Typ-Deklaration
TYPE TUpdateStatusbarEvent = Procedure (Sender : TObject) of Object; // Existiert schon als 'TNotifyEvent'
...
Procedure TDatMod.Qset_ArbeitgeberAfterScroll(DataSet: TDataSet);
begin
   BTab.Firma_ID := Qset_Arbeitgeber.FieldByName('ID_ARBEITGEBER').AsInteger;
// 4. Ereignis auslösen
   IF Assigned(fUpdateStatusbar) THEN fUpdateStatusbar (Self);
end;