перемещение компанента клавишами

[include]

Здравствуйте!
Подскажите пожалуйста как можно реализовать перемещение какого нибудь компанента по форме (например button), клавишами клавиатуры (например стрелками). Очень надо!

[vovk]

Взгляните на похожие темы внизу страницы .. и это только те которые очень похоже называются

[include]

не то это всё (....мне надо на делфе и чтоб перемещение было плавным

[BARNEY]

действие на нажатие клавиши в form1

if key=стрелочка в верх then 
button.top+1;

такое надо?

[Neeter]

Ну если "не то это всё", то вот код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case Chr(Key) of
  'A': bt_1.Left := bt_1.Left - 5;
  'D': bt_1.Left := bt_1.Left + 5;
  'W': bt_1.Top := bt_1.Top - 5;
  'S': bt_1.Top := bt_1.Top + 5;
 end;
end;

[include]

Neeter! Твой код компилится но не работает

[MalCer]

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

If key=VK_UP then batton1.Top:=batton1.Top-2;
If key=VK_LEFT then batton1.Left:=batton1.Left-2;
If key=VK_DOWN then batton1.top:=batton1.top+2;
If key=VK_RIGHT then batton1.left:=batton1.Left+2;

end;
procedure TForm1.FormCreate(Sender: TObject);
begin
batton1.Enabled:=false;
end;

Все дело в том, что кнопка(batton1) находится в активном состоянии и ты ее передвигать не можешь. Код Neeter'а прекрасно работает

[Neeter]

Neeter! Твой код компилится но не работает

Хм, а у меня работает... А вы KeyPreview выставили в true?

[include]

Извени Neeter! Всё правильно, я забыл за KeyPreview
P.S. а можно такое же сделать для Image? У него же нету события onkeydown

[Neeter]

а можно такое же сделать для Image? У него же нету события onkeydown

У меня в коде обрабатывается событие onKeyDown формы, а не кнопки.
Следовательно и для Image подойдет.