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

[MeynSpain]

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

[Человек_Борща]

изменете Left, Top координаты компонента

[doktor255]

MeynSpain Советую смотреть в сторону FireMonkey (Delphi XE2 - XE5). Там такие вещи делаются ещё на стадии проектирования формы.

[MeynSpain]

Я имею в виду какой код программы будет. Потому что я незнаю как это написать

[doktor255]

MeynSpain Стрелочка вверх это что? И что значит прыгнул? Направление? Расстояние? Скорость? Корректно формулируй задачу.

[MeynSpain]

Сообщение от doktor255

MeynSpain Стрелочка вверх это что?

Стрелочка вверх - это кнопка на клавиатуре

[Аватар]

Потому что я незнаю как это написать

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

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;

[doktor255]

Сообщение от MeynSpain

Стрелочка вверх - это кнопка на клавиатуре

Полнейшая глупость. Image это картинка. Она по определению не должна обрабатывать ввод с клавиатуры.

[MeynSpain]

Сообщение от Аватар

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

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;