Движение 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;

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

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

made in programmersforum 6

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

Похожие статьи