标签：send 网上 enter orm for 判断 简单 tag one
关于网友提出的“ 如何让TEdit在获取输入焦点后selectAll?”问题疑问，本网通过在网上对“ 如何让TEdit在获取输入焦点后selectAll?”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
我在OnEnter添加selectAll时,用Tab进入TEdit时会全选,但用鼠标点击获得焦点则不会全选.
我在OnClick添加selectALL时,每次点击都会全选,达不到我的效果.
我想要的效果是:点击,TEdit获得焦点,selectAll;如果本来就获取了焦点,则只移动光标.
那你在edit的onmousedown里也加个selectALL
解决方案2:我猜：OnClick先判断当前焦点是否在Edit中，不在则SelectAll，否则就不执行SelectAll
解决方案3://简单作个标识吧
procedure TForm1.Edit2Enter(Sender: TObject);
begin
Edit2.SelectAll;
Edit2.Tag := 1;
end;
procedure TForm1.Edit2Click(Sender: TObject);
begin
if Edit2.Tag <> 0 then
begin
Edit2.Tag := 0;
Edit2.SelectAll;
end;
end;
标签：send 网上 enter orm for 判断 简单 tag one
原文地址：https://www.cnblogs.com/jijm123/p/9019020.html
