Mudan�a automatica de campo

Question

Quero que em uma aplica��o ao terminar de um campo com o seu tamanho maximo mude para o proximo, sem a necessidade de pressionar teclas.Grato....

Anonymous · Answer

Use o seguinte o evento OnChange:if Lenght(trim(editdigitando.text)=5 thenproximoedit.setocusO n�mero 5 representa a quantidade de digitos permitido para pular ao proximo edit!Valeu!...

Lcquinhone · Answer

If Length(campo.Text) = 6 then
campo.setfocus;
***************************
Se for o �ltimo campo e vc quiser que ele de o OK do form, coloque:

If Length(DbSenha.Text) = 6 then
BtnOk.Click
***************************

Coloque sempre no evento OnChange

Ok mano

Luis Carlos Quinhone
Programador Visual

Flaviodfp · Answer

ol�,na propriedade KeyPreview do Form, coloque para True. No envento onKeyPress do Form digite o seguinte (depois do begin e antes do end):procedure TfmCliente.FormKeyPress(Sender: TObject; var Key: Char);begin  if key = #13 then     begin       key := 0;       Perform(WM_NEXTDLGCTL,0,0);     end;end;Isto faz com que a tecla ENTER funcione no Form, se vc quiser q em cada form do seu projeto a tecla ENTER funcione, vc deve repetir estes paassos para cada form do projeto.ats,flaviodfp...

Flaviodfp · Answer

ol�,na propriedade KeyPreview do Form, coloque para True. No envento onKeyPress do Form digite o seguinte (depois do begin e antes do end):procedure TfmCliente.FormKeyPress(Sender: TObject; var Key: Char);begin  if key = #13 then     begin       key := 0;       Perform(WM_NEXTDLGCTL,0,0);     end;end;Isto faz com que a tecla ENTER funcione no Form, se vc quiser q em cada form do seu projeto a tecla ENTER funcione, vc deve repetir estes paassos para cada form do projeto.ats,flaviodfp...