将智能鼠标支持添加到 TMemo 或 TRichEdit 组件答案

【问题标题】：Add intellimouse support to a TMemo or TRichEdit component将智能鼠标支持添加到 TMemo 或 TRichEdit 组件
【发布时间】：2011-02-04 17:37:39
【问题描述】：

如何将intellimouse 支持添加到 TMemo 或 TRichEdit 组件

我正在使用 Delphi XE

【问题讨论】：

【解决方案1】：

您必须将ScrollBars 属性设置为ssHorizontal、ssVertical 或ssBoth，并将IMouse 单元添加到您的项目中。

更新

为避免IMouse 单元导致的内存泄漏，您必须在应用程序退出之前添加此代码（例如在主单元的finalization 部分中）。

  if Assigned(Mouse.PanningWindow) then
    Mouse.PanningWindow := nil;

【讨论】：

+1 很遗憾，将该单元添加到您的项目会导致 VCL 内存泄漏！
真的吗？有没有这方面的QC？
@David，我在答案中提出了内存泄漏的解决方法。 ;)
谢谢，干得好。我倾向于将此代码放在使用 IMouse 的单元的最终确定中。这样一来，你就不能没有另一个。确实，内存泄漏是令人尴尬的。就好像 Emba 的人们不经常在内存泄漏跟踪模式下使用 FastMM 运行。我也不认为他们的开发人员经常使用 UAC。