Entwickler-Ecke

Multimedia / Grafik - Pausieren mit Tastenkontrolle


MasterOfPuppets2 - Di 03.09.02 21:07
Titel: Pausieren mit Tastenkontrolle
Hi,
ich mache zur Zeit einen Snake-Clon und will das die Schlange nach
dem drücken eines Knopfes sich in diese Richtung bewegt (funktioniert).
Jetzt brauch ich aber eine Schleife, die die Schlange um ein paar Koordinaten bewegt, dann pausiert und wieder bewegt. Wenn aber während des pausierens ein Taste gedrückt wird, soll sie damit aufhören.
Kann mir jemand helfen?

Gruß MOP


DBR - Do 05.09.02 21:56


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
var zeit:longword;
const stopp:boolean=false;

...

zeit:=gettickcount+1000; // 1000 Milisekunden
repeat
application.processmessages;
until (gettickcount >= zeit) or stopp;

...

procedure TForm1.Button6Click(Sender: TObject);
begin
stopp:=true;
end;


gruss DBR

Code-Tags hinzugefügt. TINO


MasterOfPuppets2 - Fr 06.09.02 15:06

Super, hat perfekt funnktioniert. DANKE!!