ir para o fim do texto no Edit

Delphi

27/11/2003

Alguém sabe como faço para que durante a digitação de um texto no edit eu consiga inserir um caractere qualquer no final do texto e que após isso eu continuo digitando no fim do texto. Meu objetivo e que o usuário ao digitar o seu cpf seja colocado automaticamente os pontos e o traço. Sei que no maskedit dá para fazer, mas gostaria de usar o edit.
Montei a rotina abaixo, mas o foco apos a sua execução vai para o inicio do texto e não para o fim como eu quero.

  case length(edCPF.Text) of
      3,7: edCPF.Text := edCPF.Text + ´.´;
      12: edCPF.Text  := edCPF.Text + ´-´;


[b:fc02850c70]Texto editado pelo Moderador - AZ[/b:fc02850c70]


Drogao

Drogao

Curtidas 0

Respostas

Beppe

Beppe

27/11/2003

Edit1.SelStart := Length(Edit1.Text);


GOSTEI 0
POSTAR