Dicas - Utilize as teclas para mover entre os controles

Veja nesta dica, como utilizar as teclas de seta para mover entre os controles de um formulário.

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;

Artigos relacionados