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

Question

How i can add intellimouse support to a TMemo or TRichEdit component

i am using Delphi XE

Answer 1

You must set the ScrollBars property to ssHorizontal, ssVertical or ssBoth and add the IMouse unit to your project.

UPDATE

To avoid the memory leak caused by the IMouse unit you must add this code before you application exit (for example in the finalization part of your main unit).

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