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

关于网友提出的“ 如何让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;