Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Янв

Управление объектом 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;

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