一个Edit(里面有内容)得到焦点的时候,怎么才能把此Edit里的光标移动到末尾?

Question

Edit.Setfocus时内容并不会去掉。按一下右键就可以继续添加了。

Answer 1

Edit.setfocus时内容是不会去掉,但是当得到焦点的时候,用户还要按鼠标移动到最后.
得到焦点时旧可以输入!
修改哪个属性?

Answer 2

Edit1.SetFocus;
Edit1.SelStart:=Length(Edit1.Text);
Edit1.SelLength:=1;OK?

Answer 3

或者setfocus时，发送按键消息，提示：END=35！

Answer 4

Edit1.SelStart := Length(Edit1.text) ;

Answer 5

procedure Tfrm1.Edit2Enter(Sender: TObject);
begin
edit2.SelStart :=length(edit2.text);
end;

Answer 6

procedure Tfrm1.Edit2Enter(Sender: TObject);
begin
edit2.SelStart :=length(edit2.text);
end;

Answer 7

Edit1.SelStart := Length(Edit1.Text)