Pular campo sem apertar ENTER
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
Curtidas 0
Respostas
Kenio_c
19/01/2006
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)
GOSTEI 0
Thomaz_prg
19/01/2006
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 );
GOSTEI 0