Fórum MaskEdit #193395
06/11/2003
0
Oi pessoal,
Gostaria de saber se tem como quando, ao terminar de preencher um maskedit, o cursos já ir para o proximo componente, sem ser necessário apertar alguma tecla. Como fazer isso???
Gostaria de saber se tem como quando, ao terminar de preencher um maskedit, o cursos já ir para o proximo componente, sem ser necessário apertar alguma tecla. Como fazer isso???
Wsantos
Curtir tópico
+ 0
Responder
Posts
06/11/2003
Rodrigo_lemes
Não sei como está a sua máscara, mas algo do tipo irá lhe ajudar:
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
IF Length(Trim(MaskEdit1.Text) = Valor
Then MaskEdit2.SetFocus;
end;
No local [Valor] vc ira colocar o Nº de caracteres de sua MaskEdit.
O Trim serve para retirar os caracteres em branco.
Depois vc coloca o próximo componente recebendo foco.
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
IF Length(Trim(MaskEdit1.Text) = Valor
Then MaskEdit2.SetFocus;
end;
No local [Valor] vc ira colocar o Nº de caracteres de sua MaskEdit.
O Trim serve para retirar os caracteres em branco.
Depois vc coloca o próximo componente recebendo foco.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)