Fórum Cursor piscando no final #300298

21/10/2005

0

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

Responder

Posts

21/10/2005

Emerson Nascimento

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


Responder

Gostei + 0

21/10/2005

Eva

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


Responder

Gostei + 0

22/10/2005

Marco Salles

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;



Responder

Gostei + 0

24/10/2005

Emerson Nascimento

é isso mesmo Marco Salles.
bastaria colocar no OnEnter:

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar