Delphi 11：点击TMemo任意位置实现文本全选的问题

问题根源在于：TMemo的点击操作会先触发系统默认的光标定位/部分文本选择逻辑，之后才执行OnClick事件中的SelectAll。而后续的鼠标消息处理会覆盖SelectAll的效果，只有点击文本末尾时，没有额外的选择范围修改操作，SelectAll才会生效。

以下是几种可行的解决方法：

方法一：用PostMessage延迟执行全选 #

通过PostMessage发送EM_SETSEL消息，让全选操作在当前所有鼠标消息处理完成后执行，避免被覆盖。代码如下：

procedure TForm8.Memo1Click(Sender: TObject);
begin
  PostMessage(Memo1.Handle, EM_SETSEL, 0, -1);
end;

EM_SETSEL的参数0表示选中起始位置，-1表示选中到文本末尾，效果等同于SelectAll。

方法二：改用OnMouseUp事件处理 #

将全选逻辑移到OnMouseUp事件中，配合PostMessage确保执行顺序：

procedure TForm8.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
    PostMessage(Memo1.Handle, EM_SETSEL, 0, -1);
end;

方法三：子类化TMemo拦截鼠标消息 #

如果前两种方法仍有问题，可以子类化TMemo，拦截WM_LBUTTONUP消息，确保全选操作生效：

type
  TCustomMemo = class(Vcl.StdCtrls.TMemo)
  protected
    procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
  end;

procedure TCustomMemo.WMLButtonUp(var Message: TWMLButtonUp);
begin
  inherited; // 先执行默认的鼠标松开处理
  PostMessage(Handle, EM_SETSEL, 0, -1); // 延迟执行全选
end;

之后在窗体上替换原TMemo为这个子类化的组件即可。

至于Ctrl+A能正常生效，是因为快捷键触发的SelectAll没有后续的鼠标操作来修改选择范围，所以效果不会被覆盖。

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