Cursor no Edit
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
Curtidas 0
Respostas
Betocsp
20/05/2003
Use a função POS. No help do delphi tem um exemplo
GOSTEI 0
Carnette
20/05/2003
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;
GOSTEI 0
Kroki
20/05/2003
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.
GOSTEI 0