[AntoNechayuk]

Нужно опрашивать нажата ли кнопка "вверх" или "вниз". И если какая-либо нажата то выполнять действие до тех пор пока не бутет "отжата".

Как реализовать грамотно можно?

ЗЫ исп. для регулирования двигателем. в самой делфе кнопки продублированы. но нужно сделать опрос с клавиатуры чтобы даже короткими нажатиями подавать импульсы движку (типа более точно).

[Страдалецъ]

Обрабатывать на форме событие OnKeyDown и OnKeyUp соответственно. Не забудьте только включить KeyPreview

[AntoNechayuk]

Не забудьте только включить KeyPreview

А можно поподробнее....

[Страдалецъ]

Ну вот примерчик небольшой:

Код:

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  begin
 case Key
 of VK_A: SpeedButton1.Perform(WM_LBUTTONDOWN,0,0);
    VK_S: SpeedButton2.Perform(WM_LBUTTONDOWN,0,0);
    VK_D: SpeedButton3.Perform(WM_LBUTTONDOWN,0,0);
 end;
end;

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 case Key
 of VK_A: SpeedButton1.Perform(WM_LBUTTONUP,0,0);
    VK_S: SpeedButton2.Perform(WM_LBUTTONUP,0,0);
    VK_D: SpeedButton3.Perform(WM_LBUTTONUP,0,0);
 end;
end

Положите на форму 3 компонента TSpeedButton и попробуйте код. А KeyPreview свойство формы.

[AntoNechayuk]

Вот такая ошибка:Безымянный.jpg

[Страдалецъ]

const
VK_A = 65; VK_S = 83; VK_D = 68;