procedure THogeTextView.ON_WM_MOUSEWHEEL(var msg: TMessage); begin Inc(FDeltaSum, SmallInt(HIWORD(msg.wParam))); //THogeTextView.FDeltaSum: Integer if Abs(FDeltaSum) < (WHEEL_DELTA div FVScrollLines) then begin msg.Result := 1; exit; end; ScrollLine(-FDeltaSum div (WHEEL_DELTA div FVScrollLines)); FDeltaSum := FDeltaSum mod (WHEEL_DELTA div FVScrollLines); msg.Result := 1; end;