diff options
| -rw-r--r-- | popunit.pas | 6 |
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; |