Retroceder curso em campos no formulário
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
Curtidas 0
Respostas
Fabio.hc
21/04/2004
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;
GOSTEI 0