如何自动把焦点内容全部选定

Question

如何自动把焦点全部选定

Answer 1

Edit.SelectAllEdit有个AutoSelect属性，自动选择。

Answer 2

...
if key=#13 then
  begin
    key:=#0;
    edt1.setfocus;
    edt1.SelectAll;
  end;
...

Answer 3

AutoSelect 属性为真 当Edit得到焦点的时候就会自动全部选中
           为假 就不会选中
如果要写程序全部选中如下
SendMessage(edit1.Handle, EM_SETSEL, 0, -1);

Answer 4

edit1.SetFocus;
edit1.SelStart := 0;
edit1.SelLength := Length(edit1.text);
或者样都可以
edit1.SetFocus ;
SendMessage(edit1.Handle, EM_SETSEL, 0, -1);