如何让TEdit在获取输入焦点后selectAll?

Posted 2020-11-03 癫狂编程

 

关于网友提出的“ 如何让TEdit在获取输入焦点后selectAll?
”问题疑问，本网通过在网上对“ 如何让TEdit在获取输入焦点后selectAll?
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

 问题： 如何让TEdit在获取输入焦点后selectAll?
描述:

我在OnEnter添加selectAll时,用Tab进入TEdit时会全选,但用鼠标点击获得焦点则不会全选.
我在OnClick添加selectALL时,每次点击都会全选,达不到我的效果.
我想要的效果是:点击,TEdit获得焦点,selectAll;如果本来就获取了焦点,则只移动光标. 

---

解决方案1:

那你在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;