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

Question

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

我正在使用Delphi XE

Answer 1

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

UPDATE

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

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