Управление объектом image стрелками клавиатуры

Posted by Chas under Delphi

как сделать так что когда я нажимаю клавишу up мое изображение image1 двигалось вперед image1.top:=image1.top-3; ну и соответственно для клавиш вправо влево и назад.

Max1548

procedure <Событие onKeyPress>

var

  buttons: TKeyBoardstate;

begin

  GetKeyboardState(buttons);

  if buttons[VK_UP] and 128 <> 0 then

  Image1.Top := Image1.Top - 1;

  if buttons[VK_DOWN] and 128 <> 0 then

  Image1.Top := Image1.Top + 1;

  if buttons[VK_LEFT] and 128 <> 0 then

  Image1.Top := Image1.Left - 1;

  if buttons[VK_RIGHT] and 128 <> 0 then

  Image1.Top := Image1.Top + 1;

end;

тема на форуме