Pausieren mit Tastenkontrolle

MasterOfPuppets2 · Hält's aus hier Beiträge: 5

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 · Beiträge: 46

markieren

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 · Hält's aus hier Beiträge: 5

Super, hat perfekt funnktioniert. DANKE!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme