Pular campo sem apertar ENTER
19/01/2006
0
Pessoal,
tenho dois campos edttipo, edtusuario
vou digitar no edttipo o valor 1 e automaticamente
pulasse para o campo edtusuario, sem tem que apertar enter.
no aguardo
tenho dois campos edttipo, edtusuario
vou digitar no edttipo o valor 1 e automaticamente
pulasse para o campo edtusuario, sem tem que apertar enter.
no aguardo
Evandro_araujo
Curtir tópico
+ 0
Responder
Posts
19/01/2006
Kenio_c
no evento keypress do seu edtipo
if Lenght(edtipo.text) > 1 then
Perform(wm_nextdlgctl,0,0)
if Lenght(edtipo.text) > 1 then
Perform(wm_nextdlgctl,0,0)
Responder
19/01/2006
Thomaz_prg
defina o maxlength do edit para o tamanho que você ser que ele caiba e no evento onchange coloque:
if length( TEdit(Sender).Text ) = TEdit(Sender).Maxlengh then SelectNext( Screen.ActiveControl , true, true );
Responder
Clique aqui para fazer login e interagir na Comunidade :)