OnMouseWheel

[Matze]

Vielleicht kannst du es irgendwie so lösen (nicht getestet):

Delphi-Quellcode:

procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;

procedure TForm1.WMMouseWheel(var Msg: TWMMouseWheel);
begin
  if Memo1.Focused then
  begin
    if Msg.WheelDelta > 0 then
      // scroll up
      SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEUP, 0)
    else
      // scroll down
      SendMessage(Memo1.Handle, WM_VSCROLL, SB_PAGEDOWN, 0);

    Msg.Result := 0;
  end;
end;

Ich weiß nicht, ob man's so überhaupt lösen kann, könnte es mir jedoch vorstellen.