Delphi 11 TRichEdit 超链接停止工作

Posted 2023-04-18

【中文标题】Delphi 11 TRichEdit 超链接停止工作

【英文标题】：Delphi 11 TRichEdit hyperlink stopped working

【发布时间】：2021-12-06 10:08:53

【问题描述】：

我使用this thread 将超链接添加到我的TRichEdit 组件。但是，自从安装了新的 Delphi 11 后，它们就停止了工作。

有人知道为什么吗？

【参考方案1】：

在 Alexandria 中，TRichEdit 组件已更新至 RichEdit 4.1，因此您不再需要任何诡计来使 URL 链接正常工作。

只需在属性窗口中（或通过代码）将 TRichEdit 的 EnableURL 设置为 true，在 TRichEdit 的 OnLinkClick 事件中编写一些代码，以便在单击链接时触发，然后就可以了。

【讨论】：

11.0 的发行说明中提到了此更改：What's New: TRichEdit Component updated to RichEdit 4.1 (MSFTEDIT.dll)

不过，我确实想知道这个功能是如何实现的（我没有 11.0）。它只是使用EM_AUTOURLDETECT吗？我假设是这样。超链接还有其他方面，我想知道它们是否被涵盖。在选定文本上启用CFE_LINK 效果应该由SelAttributes.Link 属性涵盖，但创建友好名称超链接需要更多工作，而TRichEdit 似乎根本没有涵盖（CFE_LINK、@ 的组合） 987654327@、CFE_HIDDEN 和 "HYPERLINK " 前缀）。