фокус и нажатие кнопок на клавиатуре

[Juffin]

когда на форме находится кнопка, то, нажимая на стрелку клавиатуры, события onKeyDown на стрелку не обрабатывается, а выделение скачет с одной кнопки на другую. как сделать так, чтобы обрабатывалось нажатие, а не передвигался фокус выделения?

[Air]

Св-во KeyPreview в true
OnKeyDown - обрабатывает нажатие.
Нужно только найти код клавиши, например так showmessage(inttostr(key));

[Juffin]

да я не про это. у меня стоит событие на нажатие стрелки, а оно не срабатывает, но перескакивает с обной кнопки на другую выделение.

[DeKot]

Код в студию.

[Juffin]

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

[Stilet]

да при чем тут код?

Приложи архив всего прокта. Может в свойствах формы накосячено.

[Gorychev]

Можно отлавливать событие WM_KeyDown и проверять нажата ли одна из клавиш стрелок (VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT)

procedure TForm1.HandleMessages(var Msg: tMsg; var Handled: Boolean);
begin
if (Msg.Message = WM_KeyDown) and
   (Msg.wParam in [VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT]) then
begin

   case Msg.wParam of
     VK_UP: caption:='Нажата стрелка вверх';
     VK_DOWN: caption:='Нажата стрелка вниз';
     VK_LEFT: caption:='Нажата стрелка влево';
     VK_RIGHT: caption:='Нажата стрелка вправо';
   end;
   Handled := true; // true - фокус не передается, false - передается
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := HandleMessages;
end;