如何为Delphi中的TMemo或TRichEdit组件实现高级的Intellimouse智能鼠标支持功能？

本文共计120个文字，预计阅读时间需要1分钟。

如何为TMemo或TRichEdit组件添加+intellimouse支持，并设置ScrollBars属性为ssHorizontal或ssVertical或ssBoth，同时将IMouse单元单元素添加到项目中。UPDATE：为避免IMouse单元单元素导致的内存问题。

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

我正在使用Delphi XE

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

UPDATE

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

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