popunit.pas benachrichtigt die Außenwelt jetzt nicht mehr genau doppelt

1 files changed, 6 insertions, 0 deletions

diff --git a/popunit.pas b/popunit.pas
index cf66bee..00b9844 100644
--- a/popunit.pas
+++ b/popunit.pas
@@ -38,6 +38,7 @@ type
     _lIds:                      array of longint;
     procedure datenRausGeben;
     procedure datenReinNehmen;
+    procedure auszenWeltBenachrichtigung;
     procedure auszenWeltKontakt(var pr: tProcess);
   public
     beenden,esGibtArbeit: boolean;
@@ -223,6 +224,10 @@ begin
       _besitzer._nachrichten[i].kopiereVon(_nachrichten[i]);
     end;
   end;
+end;
+
+procedure tPopThread.auszenWeltBenachrichtigung;
+begin
   if assigned(_besitzer.neueNachrichten) then
     _besitzer.neueNachrichten(_besitzer);
 end;
@@ -475,6 +480,7 @@ begin
         continue;
 
       auszenWeltKontakt(pr);
+      synchronize(@auszenWeltBenachrichtigung);
 
       if beenden or not assigned(pr) or esGibtArbeit then
         continue;