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

Question

我如何向TMemo或TRichEdit组件添加intellimouse支持

我正在使用Delphi XE

Answer 1

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

<强>更新

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

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