Pular campo sem apertar ENTER

Delphi

19/01/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


Evandro_araujo

Evandro_araujo

Curtidas 0

Respostas

Kenio_c

Kenio_c

19/01/2006

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


GOSTEI 0
Thomaz_prg

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
POSTAR