Zitat:
Aufgeweckt wird der Thread entweder wenn TimeOut aufgetreten ist oder wenn mit SetEvent der Event gesetzt wird (extern oder ggf. im Destructor)
Von Außen kann man den Thread leider nur aufwecken, wenn man folgende Änderungen in der
Unit vornimmt
Delphi-Quellcode:
public
property Event: TEvent read FEvent write FEvent; // Damit man Event von Außen überhaupt sieht
Und in TCustomThread.Execute
Delphi-Quellcode:
// Aus
if FEvent.WaitFor(LInterval) = TWaitResult.wrTimeout then
// wird
if FEvent.WaitFor(LInterval) in [TWaitResult.wrTimeout, TWaitResult.wrSignaled] then
Nur bin ich mir bei der letzten Zeile nicht so sicher, ob das OK ist.
Von Außen kann man dann aufrufen
TestThread.Event.SetEvent;