Add intellimouse support to the TMemo or TRichEdit component

Question

How can I add intellimouse component support for TMemo or TRichEdit

I am using Delphi XE

Answer 1

You must set the property ScrollBarsfor ssHorizontal, ssVertical or ssBothand add IMouseto your project.

UPDATE

To avoid a memory leak caused by a block IMouse, you must add this code before exiting the application (for example, in part of finalizationyour main block).

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