Mudando o foco apos preenchimento completo

Delphi

30/07/2003

Alguém sabe me dizer como faço para que após o preechimento completo de um edit, o foco passe automaticamente para o próximo edit.

Desde já agredeço


Angelnoa

Angelnoa

Curtidas 0

Respostas

Josh_bsb

Josh_bsb

30/07/2003

Oi amiga...

Coloque o seguinte codigo no envento OnKeyUp do componente

se for um valor numerico proceda assim:
if (Key in [96..105]) then
if (Length(EDIT.Text)) = ´LARGURA DESEJADA´) then
proximoEDIT.SetFocus;

se for um valor alfanumerico:
if (Length(EDIT.Text)) = ´LARGURA DESEJADA´) then
proximoEDIT.SetFocus;


Abraços


GOSTEI 0
Angelnoa

Angelnoa

30/07/2003

Não deu certo. Assim que eu digito o primeiro caracter ele já muda o foco.
Talvez não seja no OnKeyUp...


GOSTEI 0
Angelnoa

Angelnoa

30/07/2003

Cometi um erro, estou usando um maskedit e não um edit...
Com o edit dá certo.


GOSTEI 0
Josh_bsb

Josh_bsb

30/07/2003

Já no MaskEdit vc deve levar em consideração os caracteres fixos...
Exemplo:

CNPJ tem 14 digitos
03112386000111
No maskEdit ele terá 14 digitos
03.112.386/0001-11

Ou então crie uma função que recupere apenas os numeros de uma string e depois coloque o resultado no OnKeyUp... ai sim irá funcionar!!!

Uma abraço!


GOSTEI 0
POSTAR