Utilize as teclas para mover entre os controles

 

As teclas UP e DOWN são virtualmente sem utilidade em controles Edit. Então porque não utilizá-las para navegar entre os campos? Se você alterar a propriedade KeyPreview de um formulário para True, pode usar o seguinte trecho de código no evento OnKeyDown do formulário para navegar entre os controles.

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift : TShiftState) ;

var

  Direction : Integer;

begin

  Direction := -1;

  case Key of

    VK_DOWN, VK_RETURN : Direction := 0;

    VK_UP : Direction := 1;

  end;

  if Direction <> -1 then

  begin

    Perform(WM_NEXTDLGCTL, Direction, 0) ;

    Key := 0;

  end;

end;