Ich nehme an, es soll sowas wie ein Spiel werden? Dann empfehle ich eher GetAsyncKeystate:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetAsyncKeystate(VK_LEFT) < 0 then
begin
// Taste [<] gedrückt.
// GetAsyncKeystate(VK_LEFT) = -1
Shape1.Left := Shape1.Left - 2;
end;
...
end;
So gibt es dann nicht die Verzögerungen nach dem Drücken der Taste.
