怎么让EDIT的获取焦点之后移动到已存在的文本的最后？[请求]急！！！**

lotus · 发表于 2008-7-22 17:56:47

怎么让EDIT的获取焦点之后移动到已存在的文本的最后？

zfang · 发表于 2008-7-22 18:00:50

就类似于这样子（仅供参考哦）
procedure TMainForm.Button2Click(Sender: TObject);
begin
Edit1.SetFocus;
Edit1.SelStart := Edit1.SelLength;
end;

lotus · 发表于 2008-7-22 18:01:58

请速回贴。。‘

zfang · 发表于 2008-7-22 18:02:35

楼主，2楼不是回了吗？
不要顶帖子。

lotus · 发表于 2008-7-23 09:44:47

procedure TMainForm.Button2Click(Sender: TObject);
begin
Edit1.SetFocus;
Edit1.SelStart := Edit1.SelLength;
end;
这样些不行了。。

lotus · 发表于 2008-7-23 09:46:57

这样写不焦点老是跑到EDIT的最前端。。

gaihl · 发表于 2008-7-23 09:54:12

Edit1.SetFocus;
Edit1.AutoSelect := False;
Edit1.SelStart := Length(Edit1.Text) - 2;

lotus · 发表于 2008-7-23 09:54:50

请速回贴。。

gaihl · 发表于 2008-7-23 09:56:12

看7楼, 请不要连着顶贴

zfang · 发表于 2008-7-23 09:59:04

楼主，是什么问题呢？
是做不到吗？贴出你做的和效果图。
别老回复请速回帖。

		自动登录	找回密码
密码			立即注册