Fórum Cursor piscando no final #300298
21/10/2005
0
Abraços
Eva
Curtir tópico
+ 0Posts
21/10/2005
Emerson Nascimento
edit.selstart := length(edit.text)+1;
Gostei + 0
21/10/2005
Eva
Gostei + 0
22/10/2005
Marco Salles
Tb não entendi muito...
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
24/10/2005
Emerson Nascimento
bastaria colocar no OnEnter:
TDBEdit(Sender).SelStart := Length(TDBEdit(Sender).Field.AsString)+1;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)