Voltar através das setas...
26/02/2003
0
Num cadastro, como faço para voltar no campo anterior usando as setas?
Agradeço desde já
Agradeço desde já
Franck.c
Curtir tópico
+ 0
Responder
Posts
26/02/2003
Anonymous
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;
Responder
26/02/2003
Eniorm
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!!!
Responder
Clique aqui para fazer login e interagir na Comunidade :)