3

如何将 智能鼠标支持添加到 TMemo 或 TRichEdit组件

我正在使用德尔福 XE

在此处输入图像描述

4

1 回答 1

7

您必须将该ScrollBars属性设置为 ssHorizo​​ntal、ssVertical 或ssBoth 将该IMouse单元添加到您的项目中。

更新

为避免由IMouse单元引起的内存泄漏,您必须在应用程序退出之前添加此代码(例如在finalization主单元的一部分中)。

  if Assigned(Mouse.PanningWindow) then
    Mouse.PanningWindow := nil;
于 2011-02-04T17:40:59.560 回答