delphi - 在 TRichEdit 中设置 EM_AUTOURLDETECT 后如何检测 URL 链接？

Question

我正在尝试使用 EM_AUTOURLDETECT 消息为 TRichEdit 组件实现 URL 检测。
我对以下代码有疑问

procedure TForm1.Button1Click(Sender: TObject);
var Mask: Word;
begin
  Mask := SendMessage(Handle, EM_GETEVENTMASK, 0, 0);
  SendMessage(Handle, EM_SETEVENTMASK, 0, Mask or ENM_LINK);
  SendMessage(Handle, EM_AUTOURLDETECT, Integer(True), 0);
end;

它虽然有效，但我必须在这些设置之后更改 TRichEdit 的文本，以使其检测到已写入文本中的 URL。这就是问题所在，因为我的 TRichEdit 在应用此功能时处于只读模式。

执行此代码以强制 TRichEdit 检测已写入文本中的 URL 后，我应该怎么做？
我正在查看文档，但没有提到这样的事情。

谢谢

Answer 1

我前段时间遇到过同样的问题，并使用了（相当）肮脏的解决方法。发送EM_AUTOURLDETECT消息后，我获取并存储当前选择，然后（重新）设置富编辑的文本并设置回之前存储的选择。

procedure TForm1.Button1Click(Sender: TObject);
var
  EventMask: Word;
  CharRange: TCharRange;
begin
  EventMask := SendMessage(RichEdit1.Handle, EM_GETEVENTMASK, 0, 0);
  SendMessage(RichEdit1.Handle, EM_SETEVENTMASK, 0, EventMask or ENM_LINK);
  SendMessage(RichEdit1.Handle, EM_AUTOURLDETECT, WPARAM(True), 0);
  SendMessage(RichEdit1.Handle, EM_EXGETSEL, 0, LPARAM(@CharRange));
  SendMessage(RichEdit1.Handle, WM_SETTEXT, 0, LPARAM(RichEdit1.Text));
  SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, LPARAM(@CharRange));
end;