Zitat von
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;
Danke, ich wollt das direkt mal ausprobieren, aber da gibt's ein Problem: self.Handle gibt es nur für TForms und nicht für Datenmodule..was mach ich da? Und was hat es mit WM_DicentriesAlerterEventAlert auf sich??
Um Rekursion zu verstehen, muss man zunächst Rekursion verstehen.