Como fazer para trocar o tab pelas setas direcionais.

Delphi

03/02/2004

Gostaria de saber como faço para trocar o tab pelas setas direcionais para mover de campos em uma aplicação delphi visto que consigo trocar o tab pelo enter atravez do evento onkeypress

Atenciosamente
Welton Piedade Costa


Welton.c

Welton.c

Curtidas 0

Respostas

Ltres

Ltres

03/02/2004

Use o KeyDown

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = 40 then //seta para baixo
    keybd_event(VK_TAB, 1, 0, 0);
end;


Lembre de colocar True no KeyPreview do Form;


GOSTEI 0
POSTAR