Pause während Schleifendurchlauf

[Wolfgang Mix]

Dein Suchwort heisst sleep

[Luckie]

Besser Delay aus der Code-Lib. Sleep legt den ganzen Thread lahm, so dass gar nichts mehr passiert, auch kein neu zeichnen der Oberfläche.

[Wolfgang Mix]

@Michael:
Hast gewonnen
Wo war wieder der rote Kasten?

[ChristianR]

Zitat von Wolfgang Mix:

Dein Suchwort heisst sleep

Delphi-Quellcode:

 begin
               TPanel(FindComponent('number'+inttostr(l))).Color := clRed;
               sleep(1000);
               TPanel(FindComponent('number'+inttostr(l))).Visible := false;
             end;

das hatte ich ja schon mit drin. Problem ist aber das dann einfach gar nichts mehr passiert und ich über den Taskmanager das projekt beenden muss. Nur ich weiß nicht warum?!? ^^

[Luckie]

Zitat von ChristianR:

das hatte ich ja schon mit drin. Problem ist aber das dann einfach gar nichts mehr passiert und ich über den Taskmanager das projekt beenden muss. Nur ich weiß nicht warum?!? ^^

Begründung und Lösung habe ich dir in meinem Beitrag genannt.

[ChristianR]

ja danke ich probiere es mal aus.

[Bummi]

Häng mal noch ein Application.ProcessMessages dazwischen....

[Luckie]

Ist in Delay schon enthalten.

[ChristianR]

Zitat von Bummi:

Häng mal noch ein Application.ProcessMessages dazwischen....

Perfekt! Jetzt läuft es so, wie ich es haben wollte! Danke

Delphi-Quellcode:

if gestrichen[l] = true then
             begin
               TPanel(FindComponent('number'+inttostr(l))).Color := clRed;
               sleep(1000);
               Application.ProcessMessages;
               TPanel(FindComponent('number'+inttostr(l))).Visible := false;
             end;

läuft Einwandfrei