Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if(GetAsyncKeyState(Vk_right)<>0)
then image3.left:=image3.Left+speed;
if(getasynckeystate(vk_left)<>0)
then image3.left:=image3.Left-speed;
if(getasynckeystate(vk_down)<>0)
then image3.top:=image3.top+speed;
if(getasynckeystate(vk_up)<>0)
then image3.top:=image3.top-speed;
end;
ich weis das man das eigentlich nich mit images macht aber bin halt noch nen noob