Обработка нажатия клавиш в TButton

[mLight]

Есть кнопка Act, на которой установлен фокус.
Нужно сделать обработку нажатия клавиш, а именно клавиш со стрелками.
Если просто через KeyDown писать VK_LEFT, то при нажатии на стрелку фокус переходит к следуйщей кнопке ТButton или другому компоненту, а событие не обрабатывается.

или хотябы подскажите как вообще сделать обработку для стелочек и пробела

[Terran]

Попробуйте так:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Form1.KeyPreview:=True;
End;
...
Procedure TForm1.FormKeyUp(Sender: TObject; Var Key: Word;
Shift: TShiftState);
Begin
If Key = VK_LEFT Then
Form1.Caption:='Событие'
End;

[mLight]

Спасибо, все работает. Только если нажимать стрелочки, то фокус переходит к следуйщему элементу. Возвращаю обратно через SetFocus.

[Serge_Bliznykov]

вычитал ещё такой способ в DelphiWorld
попробуйте. вдруг Вам понравится!

Существует множество методов решения этой проблемы, но самый быстрый способ, это перехват нажатия клавиш, перед тем как их получит форма:

В секции формы PRIVATE добавьте:

procedure CMDialogKey(var Msg: TWMKey); message CM_DIALOGKEY;

В секции IMPLEMENTATION добавьте:

procedure TForm1.CMDialogKey(var Msg: TWMKey);
begin
  if (ActiveControl is TButton) then
    if Msg.Charcode = VK_LEFT then begin
      Form1.Caption:='Событие ';
      Msg.Charcode := 0;
    end;
  inherited;
end;

Чтобы ускорить работу приложения,
не надо активизировать свойство формы KEYPREVIEW

я пример заменил на ваш код. ну и ещё поставил условие, чтобы проверка нажания срабатывала ТОЛЬКО когда фокус находится на кнопке. Если это не нужно - измените так, как Вам удобно...

[mLight]

Спасибо, давно искал именно это))
Только обьясните пару вещей:

procedure CMDialogKey(var Msg: TWMKey); message CM_DIALOGKEY//это незнаю что и почему в приват писать?
Msg.Charcode := 0; //это как я понял кол клавиш
inherited //прочитал что это конструктор\деструктор класса. Пожалуйста, обьясните что это.

Эсли что не так, извините за такие вопросы, только начал программировать