Удержание клавиши

[BuT@JL]

Всем привет, у меня вот такой вопрос, как сделать так чтобы при удерживание какой то определенной клавиши передвигался по форме button, а если клавишу отпускают то button останавливается. Кто знает как это сделать, помогите пожалуйста.

[Пепел Феникса]

событие OnKeyPress или OnKeyDown (не помню точно) повторяются при удержании кнопки(частота зависит от настроек Windows)

[psycho-coder]

Button1.TabStop := false;

И, как вариант. Если кнопку не надо выделять нажатием Tab

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_UP then
    Button1.Top := Button1.Top - 4;
end;

Сообщение от Пепел Феникса

событие OnKeyPress или OnKeyDown (не помню точно) повторяются при удержании кнопки(частота зависит от настроек Windows)

Если писать по кнопке,то не прокатит. Почему не знаю. Только что пробовал

[Stilet]

Если писать по кнопке,то не прокатит.

Можно кинуть на форму TApplicationEvents и прописать такое:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
 if msg.message=WM_KEYDOWN then
 Button1.Left:=Button1.Left+1;
end;

[BuT@JL]

спасибо за помощь... но я не много не верно задал вопрос, то есть мне нужно при удерживании клавиши он шел например влево, а если я отпускаю клавишу, то он идет например вправо

[Kotofff]

Нетривиальный способ: в обработчике нажатия клавиши переменной, например, _Down присвоить true, а в обработчике отжатия клавиши _Down присвоить false, и не забыв применить таймер, в его процедуре срабатывания "следить" за _Down - если она true, то двигать кнопку как нужно и если false перестать ее двигать.

[BuT@JL]

Kotofff с помощью таймера я знаю как сделать, а мне таймер нельзя использовать, но все равно спасибо за помощь

[psycho-coder]

Если таймер нельзя, то можно как Stilet предложил. Или в отдельном потоке, но это (ИМХО) извращение

[BuT@JL]

Вооо, разобрался, спасибо большое