MaskEdit
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
Curtidas 0
Respostas
Rodrigo_lemes
06/11/2003
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.
GOSTEI 0