Cursor no Edit
20/05/2003
0
Como faço para posicionar o cursor em uma posição no Edit?
Por exemplo,No Edit estaria´Numero 12 letra B´,então depois de clikar no botão o cursor ficaria antes do numero 2 mas não alteraria o texto,assim poderia trocar o 2 por 3 ou outro numero (Numero 13...).
Por exemplo,No Edit estaria´Numero 12 letra B´,então depois de clikar no botão o cursor ficaria antes do numero 2 mas não alteraria o texto,assim poderia trocar o 2 por 3 ou outro numero (Numero 13...).
Kroki
Curtir tópico
+ 0
Responder
Posts
20/05/2003
Carnette
Como faço para posicionar o cursor em uma posição no Edit?
Por exemplo,No Edit estaria´Numero 12 letra B´,então depois de clikar no botão o cursor ficaria antes do numero 2 mas não alteraria o texto,assim poderia trocar o 2 por 3 ou outro numero (Numero 13...).
No evento OnEnter do TEdit coloque:
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Selstart:= Pos(´12´,Edit1.text)-1;
end;
Responder
21/05/2003
Kroki
Pessoal,não consegui fazer funcionar.
Tentei Edit1.Selecstart e quando cliko pra testar o cursor desaparece.
Alguem pode escrever o codigo usando um Botão pra testar?
Assim cliko em um botão e vejo se o cursor foi para a posição escolhida.
No código acima não aconteceu nada.
Tentei Edit1.Selecstart e quando cliko pra testar o cursor desaparece.
Alguem pode escrever o codigo usando um Botão pra testar?
Assim cliko em um botão e vejo se o cursor foi para a posição escolhida.
No código acima não aconteceu nada.
Responder
Clique aqui para fazer login e interagir na Comunidade :)