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

made in programmersforum 3

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

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

6th
Май

Движение image по нажатию стрелок на клавиатуре

Posted by Chas under Delphi

как запрограммировать image что бы при нажатии стрелочки вверх он прыгнул а потом опустился на тоже место

Аватар
Это плохо. А вообще какой-нибудь код умеешь писать? Вот для мышки

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  Image1.Left:=Image1.Left-2;

  Image1.Top:=Image1.Top-2;

end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  Image1.Left:=Image1.Left+2;

  Image1.Top:=Image1.Top+2;

end;

Аватар
Для стрелок() (KeyPreview формы не забудь в True)

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if not (Key in [VK_DOWN,VK_UP]) then Exit;

  Image1.Left:=Image1.Left-2;

  Image1.Top:=Image1.Top-2;

end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if not (Key in [VK_DOWN,VK_UP]) then Exit;

  Image1.Left:=Image1.Left+2;

  Image1.Top:=Image1.Top+2;

end;

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