Добавить поддержку IntelliMouse к компоненту ТМето или TRichEdit

Question

Как я могу добавить поддержку intellimouse к компоненту ТМето или TRichEdit

Я использую Delphi XE

Answer 1

Вы должны установить ScrollBars свойство ssHorizontal , ssVertical или ssBoth и добавьте блок IMouse к вашему проекту.

UPDATE

Чтобы избежать утечки памяти, вызванные IMouse блока необходимо добавить этот код перед завершением работы приложения (например, в finalization части основного блока).

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