delphi - 将智能鼠标支持添加到 TMemo 或 TRichEdit 组件

Question

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

我正在使用德尔福 XE

Answer 1

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

更新

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

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