var edtNo:TEdit; 讯享网
讯享网procedure TForm1.edtNoEnter(Sender: TObject); begin edtNo.SelectAll;//SelectAll 用于选择编辑控件中的所有文本 end;
但是运行出来却没有达到选中理想中的效果
然后网上查询资料
TEdit的AutoSelect属性，是确定控件获得焦点时是否自动选择Edit控件中的所有文本。
默认情况下，AutoSelect属性的值为TRUE。当控件获得焦点时，即控件被制表到所有控件中的文本时，将被选中。
但是，仅当控件通过TAB键获得焦点或者调用SetFocus方法时，自动选择才会在编辑控件中自动选择文本。
所以可以这么实现
procedure TForm1.edtNoClick(Sender：TObject); begin edtNo.SelectAll; edtNo.OnClick:=nil; end; procedure TForm1.edtNoExit(Sender：TObject); begin edtNo.OnClick:=edtNoClick; end; 触发OnClick事件后，事件处理程序将选择所有文本，然后从事件处理程序中分离事件处理过程（edtNoClick）。
这样可确保在编辑具有输入焦点时，不会因在编辑内部单击鼠标而发生自动选择。
要还原OnClick事件处理程序，则在OnExit事件中将OnClick重新设置为edtNoClick
参考：https://www.it610.com/article/5450812.htm
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请联系我们，一经查实，本站将立刻删除。
如需转载请保留出处：https://51itzy.com/kjqy/51200.html