Prüfen ob ein TEvent gesetzt ist?

[jensw_2000]

Kann man eigentlich irgendwie sinnvoll prüfen in welchen Status sich eine TEvent Instanz befindet?
Also... ob ich es mit myEvent.SetEvent gesetzt bzw. myEvent.ResetEvent zurückgesetzt habe?

Klar geht die Krücke über WaitFor(<Single>,<Multiple>)Object(s) mit einem sehr kurzem Timeout, aber die Lösung ist sehr unschön.
Im MSDN habe ich nichts passendes gefunden.

Was ich gern hätte wäre etwas in der Art:

Delphi-Quellcode:

function istEventGesetzt(aEvent:TEvent):boolean;
begin
  if not assigned(aEvent) then exit(false);
  result := < keine Idee wie man den Status ohne zusätzliches WaitFor ermitteln kann ... >
end;

Hat jemand eine Idee?

Grüße
Jens

[Stevie]

Delphi-Quellcode:

if AEvent.WaitFor(0) = wrSignaled then

Zitat:

Zitat von MSDN

The time-out interval, in milliseconds. If a nonzero value is specified, the function waits until the object is signaled or the interval elapses. If dwMilliseconds is zero, the function does not enter a wait state if the object is not signaled; it always returns immediately.

[jensw_2000]

:oops:
Das Timeout=0 prüft ohne zu blockieren hatte ich übersehen...

Danke.