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

Question

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

我正在使用 Delphi XE

Answer 1

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

更新

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

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