Fórum Retroceder curso em campos no formulário #227346
21/04/2004
0
Pessoal gostaria de retornar o cursor em campos anteriores, á possibilidade ?
Tipo que ao inves de ir para frente dando ENTER eu volto com a SETA á esquerda do TECLADO...
Tipo que ao inves de ir para frente dando ENTER eu volto com a SETA á esquerda do TECLADO...
Jonasaf
Curtir tópico
+ 0
Responder
Posts
21/04/2004
Fabio.hc
Tente assim:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
perform(wm_nextdlgctl,0,0);
if key=Vk_left then
perform(wm_nextdlgctl,1,0);
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_return then
perform(wm_nextdlgctl,0,0);
if key=Vk_left then
perform(wm_nextdlgctl,1,0);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)