Concatenação de Strings
Fiz uma função para o cadastramento de datas, onde no evento onkeyup do textbox, se o comprimento da propriedade text for 2, o sistema soma ao texto o caracter ´/´, mas após está soma de strings o cursor vai para o início do textbox e eu queria que ele continuasse na posição atual, ou seja, a mais a direita possível (como seu eu clicasse em END.)
Alguém sabe como posso posicionar o cursor no final do textbox?
Alguém sabe como posso posicionar o cursor no final do textbox?
Anonymous
Curtidas 0
Respostas
Gatoledo
07/04/2003
Acredito que a melhor solução seria a utilização do TMaskEdit, utilizando a máscara para data.
Mas se você realmente desejar continuar com sua função, para resolver o problema coloque as seguintes instruções como sendo as últimas de sua função:
Edit1.SelStart := Length(Edit1.Text);
Edit1.SelLength := 0;
e defina a propriedade AutoSelect do Edit1 para False.
Boa Sorte.
Mas se você realmente desejar continuar com sua função, para resolver o problema coloque as seguintes instruções como sendo as últimas de sua função:
Edit1.SelStart := Length(Edit1.Text);
Edit1.SelLength := 0;
e defina a propriedade AutoSelect do Edit1 para False.
Boa Sorte.
GOSTEI 0