Eine Lösung mit OnKeyDown kann ich dir leider nicht anbieten,
aber eine mit
GetAsyncKeyState. Dazu bräuchtest
du einen Timer (am besten mit niedrigem Interval
), die
Timer-Prozedur müsste dann so aussehen:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if(GetAsyncKeyState(VK_LEFT) <> 0) then Move_Left;
if(GetAsyncKeyState(VK_RIGHT) <> 0) then //...
end;
Hoffe, dass ich helfen konnte,
idontwantaname
