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

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

我前段时间遇到了同样的问题并使用了(相当)一个肮脏的解决方法.
发送 EM_AUTOURLDETECT消息后,我得到并存储当前选择,然后(重新)设置富编辑的文本并设置之前存储的选择.

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