Array
(
)

Pular campo sem apertar ENTER

Evandro_araujo
   - 19 jan 2006

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


Kenio_c
   - 19 jan 2006

no evento keypress do seu edtipo
if Lenght(edtipo.text) > 1 then
Perform(wm_nextdlgctl,0,0)


Thomaz_prg
   - 19 jan 2006

defina o maxlength do edit para o tamanho que você ser que ele caiba e no evento onchange coloque:

#Código


if length( TEdit(Sender).Text ) = TEdit(Sender).Maxlengh then
SelectNext( Screen.ActiveControl , true, true );