codigo da tecla tab para voltar campo anterior

Question

bom dia, preciso saber qual � o codigo da tecla tab para poder voltar um campo. pois o usuario quer colocar usar a seta para avancar ou voltar um campo como era nos programas DOS.

na tabela asc o codigo para avancar � 9 e para voltar � 271 so que quando uso o codigo 271 nao funciona.

obrigado

victor antonio

E_gama · Answer

- Configure a propriedade [b:694070f93c]KeyPreview[/b:694070f93c] do form para [b:694070f93c]True[/b:694070f93c].
- Escreva o c�digo abaixo no evento [b:694070f93c]OnKeyUp[/b:694070f93c] do form:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key in [13, 38, 40] then
     begin
       if Key = 38 then
          SelectNext(ActiveControl, False, True) // Voltar
       else
          SelectNext(ActiveControl, True, True); // Avan�ar
       Key := 0;
     end;
end;

F�rum codigo da tecla tab para voltar campo anterior #193207