codigo da tecla tab para voltar campo anterior

Delphi

06/11/2003

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


Victor_antonio

Victor_antonio

Curtidas 0

Respostas

E_gama

E_gama

06/11/2003

- 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;



GOSTEI 0
POSTAR