EDIT一得到焦点就选取全部内容?(只得这么多了)

Question

如何做

Answer 1

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.SelectAll;
end;

Answer 2

在Keyup事件中同样加入Edit1.SelectAll;

Answer 3

DDGG(叮叮当当)的有点问题吧。如果用户是用键盘控制焦点，TEdit.onMouseUp 事件不会发生。应该用
OnEnter事件。如下：
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit1.SelectAll;
end;

Answer 4

procedure TForm1.Edit1Click(Sender: TObject);
begin
  edit1.SelectAll;
end;

Answer 5

有现成的属性，不要总是写代码。Edit的属性AutoSelect设成True。

Answer 6

TO: honkiko(honky)
你说的问题我考虑过，但用OnEnter不行，不信你可以试。
当用Tab键切换时，OnMouseUp不会发生，但切换到TEdit拥有输入焦点时，默认就是将文字全选的情况。以上是我实验的结果，如有异议可以继续讨论。

Answer 7

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  TEdit(Sender).SelectAll;
end;

Answer 8

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit1.SetFocus;
end;
这样就可以了

Answer 9

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Edit1.SetFocus;
    Edit1.SelectAll;
end;
以上已经测试