also ivh habs jetzt so gemacht:
Delphi-Quellcode:
if (key = VK_UP) then begin
if richtung.Y=0 then richtung := Point(0, -1);
end
else if (key = VK_down) then begin
if richtung.Y=0 then richtung := Point(0, 1);
end
else if (key = VK_right) then begin
if richtung.X=0 then richtung := Point(1, 0);
end
else if (key = VK_left) then begin
if richtung.X=0 then richtung := Point(-1, 0);
end
geht das oder ist da ein fehler drinnen???