IMHO wird da nichts synchronisiert, sondern der Anwendungsprozess fragt die Nachrichten-Warteschlange ab und verarbeitet die Nachrichten sofern denn welche vorliegen.
Eine Synchronisierung ist also gar nicht erforderlich
Diese Polling-Schleife befindet sich in
TApplication.Run
Delphi-Quellcode:
procedure TApplication.Run;
begin
...
repeat
try
HandleMessage;
except
HandleException(Self);
end;
until Terminated;
...
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)