用户单击Edit时，在Edit的Enter事件中，如何选择Edit的内容。

[程晨c]

用户单击Edit时，在Edit的Enter事件中，如何选择Edit的内容。
测试了如下两种方法都不行。

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

procedure TForm1.Edit1Enter(Sender: TObject);
begin
edit1.SelStart:=0;
edit1.SelLength:=length(edit1.Text);
end;

[yangjing41]

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then //按下回车键
    edt1.SelectAll;
end;

[程晨c]

[Quote=引用 1 楼 yangjing41 的回复:]
Delphi(Pascal) code

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then //按下回车键
edt1.SelectAll;
end;
[/Quote]


是鼠标单击，不是回车键

[程晨c]

[Quote=引用 2 楼 seleron 的回复:]
引用 1 楼 yangjing41 的回复:
Delphi(Pascal) code

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then //按下回车键
edt1.SelectAll;
end;



是鼠标单击，不是回车键
[/Quote]

用户是要在鼠标单击是全部选中

[bdmh]

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

[程晨c]

[Quote=引用 4 楼 bdmh 的回复:]
Delphi(Pascal) code
procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit1.SelectAll;
end;
[/Quote]

OK