MaskEdit quando todo preenchido focar outro campo automatico

Question

Tenho Um MaskEdit e queria quando estivesse todo preenchido j� focasse o campo seguinte. Tem como fazer isso?No caso do MaskEdit preenchido teria como dar um SetFocus para o campo seguinte?...

Dbergkamps10 · Answer

ola.tente assim:[code:1:60379c1d4f]Edit1.MaxLength:=10;if Edit1.GetTextLen=10 thenPerform(WM_NEXTDLGCTL,0,0);[/code:1:60379c1d4f]espero ter ajudado...

Jpauloss · Answer

[quote:61c0e621d7=�dbergkamps10�]ola.tente assim:[code:1:61c0e621d7]Edit1.MaxLength:=10;if Edit1.GetTextLen=10 thenPerform(WM_NEXTDLGCTL,0,0);[/code:1:61c0e621d7]espero ter ajudado[/quote:61c0e621d7]Em que evento coloco esse c�digo?...

Jpauloss · Answer

[quote:e9e249284c=�jpauloss�][quote:e9e249284c=�dbergkamps10�]ola.tente assim:[code:1:e9e249284c]Edit1.MaxLength:=10;if Edit1.GetTextLen=10 thenPerform(WM_NEXTDLGCTL,0,0);[/code:1:e9e249284c]espero ter ajudado[/quote:e9e249284c]Em que evento coloco esse c�digo?[/quote:e9e249284c]Coloquei assim:[code:1:e9e249284c] cod.MaxLength:=9; if cod.GetTextLen=9 then descricao.SetFocus;[/code:1:e9e249284c]Mas quando digito o primeiro n�mero ele j� pula para o edit �descricao�.Que fa�o?...

Martins · Answer

[quote:df1629aa52=�jpauloss�][quote:df1629aa52=�dbergkamps10�]ola. tente assim:

Edit1.MaxLength:=10;
if Edit1.GetTextLen=10 then
Perform(WM_NEXTDLGCTL,0,0);

espero ter ajudado

Em que evento coloco esse c�digo?[/quote:df1629aa52]

Coloquei assim:

 cod.MaxLength:=9;
 if cod.GetTextLen=9 then
 descricao.SetFocus;

Mas quando digito o primeiro n�mero ele j� pula para o edit �descricao�.
Que fa�o?[/quote:df1629aa52]

Voc� colocou esse c�digo em qual evento? No Onchange?

Acho q vc deve fazer a verifica��o no evento OnChange do componente OK!

Bons c�digos.

Jpauloss · Answer

[quote:3b89ff1ed8=�Martins�][quote:3b89ff1ed8=�jpauloss�][quote:3b89ff1ed8=�jpauloss�][quote:3b89ff1ed8=�dbergkamps10�]ola.tente assim:[code:1:3b89ff1ed8]Edit1.MaxLength:=10;if Edit1.GetTextLen=10 thenPerform(WM_NEXTDLGCTL,0,0);[/code:1:3b89ff1ed8]espero ter ajudado[/quote:3b89ff1ed8]Em que evento coloco esse c�digo?[/quote:3b89ff1ed8]Coloquei assim:[code:1:3b89ff1ed8] cod.MaxLength:=9; if cod.GetTextLen=9 then descricao.SetFocus;[/code:1:3b89ff1ed8]Mas quando digito o primeiro n�mero ele j� pula para o edit �descricao�.Que fa�o?[/quote:3b89ff1ed8]Voc� colocou esse c�digo em qual evento? No Onchange?Acho q vc deve fazer a verifica��o no evento OnChange do componente OK!Bons c�digos.[/quote:3b89ff1ed8]Coloquei no OnChange mesmo e deu esse problema. Est� pulando quando digito o primeiro ele j� pula pra o edit seguinte....

Jpauloss · Answer

O problema s�o os pontos da m�scara. Fiz um teste sem os pontos e pegou legal.
Voc�s tem alguma ideia?
A m�scara ta assim: 9.9.9.9.9

No primeiro n�mero que � digitado j� pula para o outro edit.

Dbergkamps10 · Answer

ola,coloque o lenght do edit contando com os pontos da mascara. Se for:9.9.9.9.9, n�o coloque 5 e sim 9.captou?espero ter ajudado....

Jpauloss · Answer

[quote:3f17c4cb69=�dbergkamps10�]ola,coloque o lenght do edit contando com os pontos da mascara. Se for:9.9.9.9.9, n�o coloque 5 e sim 9.captou?espero ter ajudado.[/quote:3f17c4cb69]J� fia o teste com 5 e com 9, da no mesmo....

Martins · Answer

[quote:f90b45dc63=�jpauloss�][quote:f90b45dc63=�dbergkamps10�]ola,coloque o lenght do edit contando com os pontos da mascara. Se for:9.9.9.9.9, n�o coloque 5 e sim 9.captou?espero ter ajudado.[/quote:f90b45dc63]J� fia o teste com 5 e com 9, da no mesmo.[/quote:f90b45dc63]Do jeito q est� n�o vai funcionar mesmo, verifiquei e veja q o tamanho dessa mascara ser� sempre 9, mesmo q vc n�o a preencha ela ter� esse tamanho os caracteres digitados s�o colocados no lugar do _.Fa�a um teste.[code:1:f90b45dc63]ShowMessage( IntToStr( MaskEdit1.GetTextLen ) );[/code:1:f90b45dc63]Acho q vc deve procurar uma outra maneira de fazer isso....

Crskuca · Answer

Acho que vou conseguir resolver o seu problema casa nao tenha resolvido.

Eu uso uma funcao para todas as mascaras.

function MontaMascara(aux:string; Tipo:Integer ):string;
begin
case tipo of
1:begin //monta a mascara de telefone (00)8888-9999
case length(AUX) of
1:AUX:=�(�+AUX;
3:AUX:=aux+�)�;
8:AUX:=aux+�-�;
end;
end;
2:begin // monta a mascara do CPF 999.999.999-99
case length(AUX) of
3:AUX:=AUX+�.�;
7:AUX:=aux+�.�;
11:AUX:=aux+�-�;
end;
end;
3:begin // monta a mascara do CGC 00.999.999/9999-99
case length(AUX) of
2:AUX:=AUX+�.�;
6:AUX:=aux+�.�;
10:AUX:=aux+�/�;
15:AUX:=aux+�-�;
end;
end;
4:begin // monta a mascara do CEP 04412-090
case length(AUX) of
5:AUX:=AUX+�-�;
end;
END;
END;
RESULT:=AUX;
END;

procedure TfrmCliente.ClienteCgcCpfChange(Sender: TObject);
begin
if drgPessoa.ItemIndex = 0 then
begin
TDBEDIT(SENDER).Text:=MontaMascara(TDBEdit(SENDER).Text,2); //monta a mascara
TDBEdit(Sender).SelStart := MaxInt; // RETORNA O CURSOR NO LUGAR CERTO
TDBEdit(SENDER).MaxLength:=14; //tamanho maximo do campo
if TDBEdit(SENDER).GetTextLen=14 then Perform(WM_NEXTDLGCTL,0,0);
end
else
begin
TDBEDIT(SENDER).Text:=MontaMascara(TDBEdit(SENDER).Text,3); //monta a mascara
TDBEdit(Sender).SelStart := MaxInt; // RETORNA O CURSOR NO LUGAR CERTO
TDBEdit(SENDER).MaxLength:=18; //tamanho maximo do campo
if TDBEdit(SENDER).GetTextLen=18 then Perform(WM_NEXTDLGCTL,0,0);

end;
end;

Martins · Answer

Pronto uma solu��o interessante para o problema do colega.Valew!!!...

F�rum MaskEdit quando todo preenchido focar outro campo automatico #345754