Cursor no Edit

20/05/2003

4

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...).


Responder

Posts

20/05/2003

Betocsp

Use a função POS. No help do delphi tem um exemplo


Responder

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.


Responder