datensätze mit events aktualisieren (fibplus)

[Bernhard Geyer]

Delphi-Quellcode:

procedure TDataModule1.DicentriesAlerterEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer); 
begin
  // Evtl. in Liste speichern da mehrere EventAlert kommen könnten vor abarbeitung
  FEventname := EventName;
  FEventCount := EventCount;
  PostMessage(self.Handle, WM_DicentriesAlerterEventAlert);
end;

procedure TDataModule1.DicentriesAlerterEventAlert(...)
begin
  // Ursprünglicher Code von DicentriesAlerterEventAlert
end;