Cursor piscando no final

Delphi

21/10/2005

Pessoal tenho uma aplicação de contabilidade, e quando coloco o codigo de historico ele automaticamente coloca o historico tudo certinho no campo, pois bem, quando ele coloca o historico, ele seleciona todo o ´nome do historico ex: [b]pago conforme nº[/b]´ e o cursor fica piscando com toda frase selecionada, ate ai tudo bem, mas se eu por acidente digitar alguma coisa ele substitui todo o nome ou frase, gostaria de saber como colocar o cursor piscando no final da frase sem q a frase seja selecionada, para não ta precisando clicar com o mouse no final ou teclar a tecla ´end´ para digitar o complemento da frase (pago conforme nº [b]100 de etc[/b])

Abraços


Eva

Eva

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

21/10/2005

edit.text := seutexto;
edit.selstart := length(edit.text)+1;


GOSTEI 0
Eva

Eva

21/10/2005

Não entendi!!! gostaria de mais escalrecimento.


GOSTEI 0
Marco Salles

Marco Salles

21/10/2005

Não entendi!!! gostaria de mais escalrecimento.


Tb não entendi muito...

quando ele coloca o historico, ele seleciona todo o ´nome do historico ex: [b:56dcdc98e7]pago conforme nº[/b:56dcdc98e7]´ e o cursor fica piscando com toda frase selecionada,



eu entendo que se o cursor fica piscando seje nun edit ou numn dbedit, é porque ele recebeu o foco.. Então pode-sse usar o evento onenter do dbedit, Coloque no evento onEnter do DbEdit: 
procedure TForm1.DBEdit2Enter(Sender: TObject);
begin
Keybd_Event(VK_End, 0, 0, 0);
end;


Tb acho que a dica do emerson.en deve funcionar , e pode-se no evento onenter..
Coloque no evento onEnter do DbEdit: 
procedure TForm1.DBEdit2Enter(Sender: TObject);
var
seutexto:String;
begin
seutexto:=dbedit2.text;
Dbedit2.selstart := length(seutexto)+1;
end;



GOSTEI 0
Emerson Nascimento

Emerson Nascimento

21/10/2005

é isso mesmo Marco Salles.
bastaria colocar no OnEnter:

TDBEdit(Sender).SelStart := Length(TDBEdit(Sender).Field.AsString)+1;


GOSTEI 0
POSTAR