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

Оплата за обучение в Kata Academy только после твоего трудоустройства в IT
Начни карьеру Middle Java-разработчика, подробнее на сайте академии, ссылка - https://clck.ru/fCrQw

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

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;

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