EDIT控件点中全选怎么做啊？

Question

我放了个EDIT控件，想在里面默认放一些提示语每次打开这个窗口的时候鼠标选中在EDIT里面，提示语为全选状态这样的怎么做啊？》

Answer 1

  edt2.SetFocus;
  edt2.SelectAll;

Answer 2

procedure Tform1.Formshow(sender:tobject);
begin
  edit1.text:='全选状态';
  edit1.SetFocus;
  edit1.SelectAll;
end;

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
  edit1.SetFocus;
  edit1.SelectAll;
end;放了edit1.SetFocus;  报错
放了edit1.SelectAll;没有全选

Answer 4

不要放在create事件里
写在show事件 就可以了

Answer 5

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

Answer 6

那就在Activate里写
procedure TForm1.FormActivate(Sender: TObject);
begin
   edit1.SetFocus;
   edit1.SelectAll;
end;

Answer 7

onShow事件就是 当窗体 打开的时候 显示啊

Answer 8

谢谢大家  放在Activate里就可以了