Usando seta do teclado para mudar de foco

[Plom 1]

Como faço para que, quando eu apertar seta pra baixo / seta pro lado <, o foco vá para edits anteriores, e seta pra cima / seta pro lado >, o foco vá para os próximos edits?

[marcio.theis 3]

Não sei se isto seria muito interessante, pois no caso para navegar dentro de um edit somente poderia ser usando o mouse, visto que se precisona < ou > ele iria mudar o foco.

[Hugo Slepicka 0]

Bom, realmente testei aqui em casa, mas com os Edits teve momento e que funcionou e momento em que não... mas de qualquer forma segue o Código abaixo...

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if Key = VK_RIGHT then  Begin	SelectNext(Sender as tWinControl, True, False );  End;  if Key = VK_LEFT then  Begin	SelectNext(Sender as tWinControl, False, False );  End;end;

[bdexterholland 0]

Muda os VK_keys para up e down que fica mais interessante pois não influem naturalmente nos edits...

[junior06_182 0]

Muda os VK_keys para up e down que fica mais interessante pois não influem naturalmente nos edits...

 

 

esse aki tmbm funciona..

 

begin

if Key = vk_up then

begin

Perform(WM_NEXTDLGCTL,1,0);

end;

if Key = VK_down then

begin

Perform(WM_NEXTDLGCTL,0,0);

end;

end;

[Mário Monteiro 179]

Olá junior06_182 ,

 

Obrigado por compartilhar seu conhecimento conosco.

 

Continue contribuindo respondendo os tópicos mais recentes.

 

Abraços

 

Mário Monteiro