Memo прокуртка колесом

[san72]

Добрый вечер! Нужно сделать чтобы в компоненте Memo прокручивались строчки когда крутиш колёсико мышки вниз и вверх, но проблема в том что в Memo нету событий OnMouseWheelUp и OnMouseWheelDown.. как можно другим способом это сделать?

[Lime]

Свойство ScrollBars = ssVertical .

[san72]

Нет не пойдёт - нельзя чтобы эти скроллбары видны были

[Скандербег]

Можно использовать TRichEdit. В этом классе есть обработчик событий от колеса. Тем более, что TRichEdit наследник от того же мемо (TCustomMemo).

procedure TFrmMain.RichEdit1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var D : Integer;
    Key : Word;
begin
  D := WheelDelta;
  if D < 0 then Key := SB_LINEDOWN
           else Key := SB_LINEUP;
  SendMessage(RichEdit1.Handle, EM_SCROLL, Key, 0)
end;

В случае TMemo другого выхода нет как объявить свой класс наследник от TMemo (или сделать компонент) и разместить в нем обработчик колеса.

  TOurMemo = class(TMemo)
    procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
  end;

В реалзиации обработчика поместить тот же (выше приведенный) код.