???如何让光标停在Edit1中的最后一位??? 如何在当Edit1获得焦点时,光标位置停在最后一位,而不是选中Edit1中的内容?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Edit1Click(Sender: TObject);begin Edit1.SelStart := length(Edit1.Text);end; Edit1.SetFocus; //Edit1.SelectAll; 全选 Edit1.SelLength:=Length(Edit1.Text)div 2; //选一半想怎么选就怎么选 Delphi高手帮忙 为什么要RegisterClass? 简单问题---保存密码、自动登录等的实现 急死了:程序打包安装后出现的怪问题!! 兄弟们近来谈谈自己对国内程序员的看法? 关于数据传输的问题 高手请进!如果实现动态添加edit控件及对实现移动其到界面指定的位置。 我遇到一个很奇怪的现象,请高手解答?(在线等待!!!) 用installshell express做安装程序的时候怎样做到像这种结果,看里面吧: 多层系统的发布问题 sql查询语句请教? Fastreport动态交叉表
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.SelStart := length(Edit1.Text);
end;
//Edit1.SelectAll; 全选
Edit1.SelLength:=Length(Edit1.Text)div 2; //选一半
想怎么选就怎么选