TImage и клава

[guffer]

Как сделать так, чтобы при нажатии на VK_LEFT(стрелка влево) TImage двигалась влево? Я тут насоображал, но не работает

procedure TForm1.FormKeyPress(Sender: TObject; var Key: word);
begin
if key = VK_left then
form1.Image2.Left:=form1.Image2.Left - 2
else
if key = VK_right then
form1.Image2.Left:=form1.Image2.Left + 2
else
if key = VK_up then
form1.Image2.Top:=form1.Image2.Top - 2
else
if key = VK_down then
form1.Image2.Top:=form1.Image2.Top + 2
else
form1.Timer1.Enabled:=true;
end;

[lexaltd]

Вставь свой код в эту процедуру:

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

[guffer]

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

Вставь свой код в эту процедуру:

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

НЕ РАБОТАЕТ

[DarkEvil]

Все работает

[Kotofff]

Для своей формы KeyPreview:=true; поставь. Должно помочь.