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

我正在尝试使用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后，我该怎么办？
我当时在看documentation，但没有提到这样的事情。

谢谢

最佳答案

我前段时间遇到过同样的问题，并使用(相当)一种肮脏的解决方法。
发送 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;