Ich persönlich finde es ja schicker, wenn der Event sich selbst zurücksetzt.
Dann reicht
Delphi-Quellcode:
var
E : TEvent;
begin
E := TEvent.Create( nil, False, False, '' );
while not Terminated do
begin
E.WaitFor;
end;
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)