Thread für kurze Zeit aussetzen lassen

**3_of_8**

Morgen.

Ich hab folgenden Code in der Execute-Methode meines Threads:

Delphi-Quellcode:

			procedure TBSBoardRefreshThread.Execute;

var LastMs, Ms: Integer;

begin

  LastMs:=trunc(GetTime*24*60*60*1000);

  while not Terminated do

  begin

    Ms:=trunc(GetTime*24*60*60*1000);

    if assigned(FBoard) and (Ms>LastMs) then FBoard.Refresh(Ms-LastMs);

    LastMs:=Ms;

  end;

end;

Das Problem: Erstens läuft der Thread so schnell er nur kann und blockiert damit meinen Hauptthread. Der Hauptthread findet das gar nicht witzig und lässt meine GUI freezen.

Eigentlich logisch. Aber wie verhindern? Wenn ich hintendran ein Sleep(0) dranhänge, gehts nicht und bei Sleep(10) auch nicht. Die GUI reagiert immer noch nicht.

Thread für kurze Zeit aussetzen lassen

Thread für kurze Zeit aussetzen lassen

Forumregeln