Hallo!
Also, ich bastle gerade an einem StadtLandFluss-Spiel (ist keine Hausaufgabe sondern eine Art Projekt, wo Schüler ihre eigenen Programme entwerfen).
Während eine Uhr in einem Edit-Feld 120 Sekunden herunterzählt, hat kann man in die Edit-Felder wo man Stadt, Land, Fluss etc. reinschreibt, etwas reinschreiben - das funktioniert schonmal.
Ich möchte aber einen zusätzlichen Button machen, auf den man klicken kann, während die Zeit läuft, und der dann den Countdown sozusagen anhält.
Mit sleep ist das ja aber problematisch, weil man da ja, während der sleepfunktion keine Buttons betätigen kann.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.Button1Click(Sender: TObject); var
I: Integer;
begin
for I := 12000 downto 20 do
begin
sleep(10);
Application.ProcessMessages;
Edit7.Text:=intToStr(Round(I/100));
end;
end; |
Gibt es andere Zeit-Funktionen?
Sleep 
