在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处于ReadOnly模式。

执行此代码后，如何强制TRichEdit检测已写入文本中的URL？

我在看documentation，但没有提到这样的东西。

谢谢

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;