Trocar tab pelas setas direcionais

Question

Gostaria de saber se h� uma possibilidade de trocar o tab para mover de campo pelas setas direcionais visto que consigo trocar o tab usando o evendo on

Crash · Answer

Ative a propriedade do form: KeyPrev = True;
No evento OnKeyDown coloque:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Down then
  begin
    Key:= 0;
    Perform(CM_DIALOGKEY, VK_TAB, 0);
  end;
  if Key = VK_UP then
  begin
    Key:= 0;
    keybd_event(VK_Shift, 0, 0, 0);
    keybd_event(VK_TAB,0,0,0);
    keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
  end;
end;