Voltar através das setas...
Num cadastro, como faço para voltar no campo anterior usando as setas?
Agradeço desde já
Agradeço desde já
Franck.c
Curtidas 0
Respostas
Anonymous
26/02/2003
Seta para cima
evento keydown
procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 38 then Perform(Wm_NextDlgCtl,-1,0);
end;
evento keydown
procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 38 then Perform(Wm_NextDlgCtl,-1,0);
end;
GOSTEI 0
Eniorm
26/02/2003
Olá, eu tenho um procedimento que faz isso!
Alem disso, pode-se usar o ESC para fechar o form,
usar o ENTER para pular p/ o próx. controle etc.
Mas... infelizmente naum está aqui agora mas eu
posso postar o código depois p/ vc,
Isso é, se ninguem naum o fizer antes!!!
Alem disso, pode-se usar o ESC para fechar o form,
usar o ENTER para pular p/ o próx. controle etc.
Mas... infelizmente naum está aqui agora mas eu
posso postar o código depois p/ vc,
Isso é, se ninguem naum o fizer antes!!!
GOSTEI 0