Нажатие кнопок на клавиатуре.

[glebast]

Привет! Подскажите пожалуйста, как сделать так что когда я нажимаю клавишу up мое изображение image1 двигалось вперед image1.top:=image1.top-3; ну и соответственно для клавиш вправо влево и назад.
Заранее спасибо!

[tsar_]

Можно обрабатывать событие OnKeyPress формы, в котором проверять параметр Key на предмет его равенства коду нужной клавиши.
Коды нужных клавиш можно найти в интернете, в частности здесь:
http://www.delphi-box.ru/view_post.php?id=16

[Max1548]

procedure <Событие onKeyPress>
var
  buttons: TKeyBoardstate;
begin
  GetKeyboardState(buttons);
  if buttons[VK_UP] and 128 <> 0 then
  Image1.Top := Image1.Top - 1;
  if buttons[VK_DOWN] and 128 <> 0 then
  Image1.Top := Image1.Top + 1;
  if buttons[VK_LEFT] and 128 <> 0 then
  Image1.Top := Image1.Left - 1;
  if buttons[VK_RIGHT] and 128 <> 0 then
  Image1.Top := Image1.Top + 1;
end;