Como posicionar o cursor para o Final do Texto de um TEdit?

Fala galera de Delphi, tudo beleza?

Há situações que precisamos setar o foto para o final de um Edit, por exemplo, quando o campo vem com algum texto preenchido e queremos que o usuário complete a informação.

Bem, a solução é bem simples!

O TEdit possui uma propriedade SelStart, que é responsável por indicar onde o cursor deve estar.

Exemplo

1
2

// Seta o foco para o oitavo caractere, se tiver.
Edit1.SelStart := 8;

Agora para setar para o final, vamos utilizar a função Length, que retorna o número de caracteres de uma string.

Assim, conforme o exemplo, vamos obter o efeito desejado.

1
2
3
4

procedure Button1Click(Sender : TObject);
begin
  Edit1.SelStart := Length( Edit1.Text );
end;

A mesma ideia deve funcionar para componentes similares ao TEdit, como TMaskEdit, TLabeledEdit e etc.

Espero que seja útil a todos!

Dúvidas ou sugestões? Deixe o seu comentário!

Um abraço e até a próxima pessoal. Valeu!