Hallo,
ich möchte einen Timer so einbauen, dass während der Timer Prozedur eine gewisse Zeit gewartet wird.
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.ShapeRot.Brush.Color := clred;
Form1.ShapeGelb.Brush.Color := clyellow;
//hier 2 Sekunden warten
Form1.ShapeRot.Brush.Color := clwhite;
Form1.ShapeGelb.Brush.Color := clwhite;
Form1.ShapeGruen.Brush.Color := cllime;
end;
Wenn ich die Anwendung so abrufe springt das untere Shape (soll eine Ampel sein, oben ShapeRot, dann ShapeGelb, dann ShapeGruen) direkt auf grün, sprich nur Form1.ShapeGruen.Brush.Color := cllime; wird ausgeführt. Hab ich irgendetwas übersehen warum die anderen beiden Shapes nicht vorher noch eingefärbt werden?
Und, um auf meine eigentliche Frage zurückzukommen, wie baue ich eine Art Verzögerung bei "//hier 2 Sekunden warten" ein? Habe bereits gesucht, aber unter delay finde ich nichts und sleep friert das ganze ein, aber ich möchte ja nur, so. oben, 2 Sekunden warten!
Danke und viele Grüße,
Zidane