如何实现用户点击TEdit控件获取焦点时全选文本？

要实现和Windows资源管理器搜索框一致的行为——点击TEdit使其从无焦点状态获得输入焦点时，自动全选所有文本，需要通过子类化控件并处理Windows消息来实现，以下是具体方案：

核心思路 #

TEdit原生的AutoSelect属性仅对Tab键切换、SetFocus方法触发的焦点生效，鼠标点击获焦时会被控件内部的鼠标事件逻辑清除选中状态。我们需要：

• 标记焦点请求是否来自鼠标操作
• 在WM_SETFOCUS消息处理中，针对鼠标触发的首次获焦执行全选
• 保留已获焦时点击控件的原生行为（仅定位光标，不全选）

完整实现代码 #

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  // 自定义子类化TEdit
  TCustomEdit = class(TEdit)
  private
    FIsMouseActivated: Boolean;
    procedure WndProc(var Message: TMessage); override;
  protected
    procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
    procedure WMMouseActivate(var Message: TWMMouseActivate); message WM_MOUSEACTIVATE;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    Edit1: TCustomEdit; // 使用自定义Edit控件
  public
    constructor Create(AOwner: TComponent); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TCustomEdit }

procedure TCustomEdit.WMMouseActivate(var Message: TWMMouseActivate);
begin
  inherited;
  // 标记当前焦点请求来自鼠标操作
  FIsMouseActivated := True;
end;

procedure TCustomEdit.WMSetFocus(var Message: TWMSetFocus);
begin
  inherited;
  // 仅当焦点来自鼠标，且之前无焦点时执行全选
  if FIsMouseActivated and (Message.FocusedWnd <> Handle) then
  begin
    SelectAll;
  end;
  FIsMouseActivated := False; // 重置标记
end;

procedure TCustomEdit.WndProc(var Message: TMessage);
begin
  // 已获焦时点击控件，保留原生光标定位行为，不执行全选
  if (Message.Msg = WM_LBUTTONDOWN) and Focused then
  begin
    inherited;
    Exit;
  end;
  inherited;
end;

{ TForm1 }

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  // 动态创建自定义Edit控件（也可在设计时替换为TCustomEdit）
  Edit1 := TCustomEdit.Create(Self);
  Edit1.Parent := Self;
  Edit1.Left := 20;
  Edit1.Top := 20;
  Edit1.Width := 200;
  Edit1.Text := '测试文本';
  Edit1.AutoSelect := True; // 保留原生非鼠标获焦的全选行为
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus; // 代码触发焦点，AutoSelect会生效全选
end;

end.

代码说明 #

1. 子类化TEdit：创建TCustomEdit继承自TEdit，添加私有字段FIsMouseActivated标记焦点来源。
2. WM_MOUSEACTIVATE处理：当鼠标点击控件时，标记即将通过鼠标获取焦点。
3. WM_SETFOCUS处理：在获得焦点时，判断如果是鼠标触发且之前无焦点，执行SelectAll，之后重置标记。
4. WM_LBUTTONDOWN处理：如果控件已经有焦点，点击时直接执行原生逻辑，仅定位光标，不全选文本，符合Windows原生交互。
5. 保留AutoSelect功能：保留AutoSelect := True，确保Tab切换、代码触发焦点时仍能自动全选。

内容的提问来源于stack exchange，提问作者Ian Boyd