delphi – 为TMemo或TRichEdit组件添加intellimouse支持

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

我正在使用Delphi XE

必须将 ScrollBars属性设置为ssHorizo​​ntal,ssVertical或ssBoth,并将 IMouse单元添加到项目中.

UPDATE

为避免IMouse单元导致的内存泄漏,必须在应用程序退出之前添加此代码(例如,在主单元的最终部分中).

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