Delphi Scrollbox Прокрутка Колесиком

Delphi предоставляет простой способ добавления прокрутки колесиком для TScrollBox. Необходимо установить значение свойства AutoScroll на True и добавить следующий обработчик события OnMouseWheel:

with ScrollBox1 do
begin
  VertScrollBar.Position := VertScrollBar.Position - WheelDelta;
  // Если нужна горизонтальная прокрутка, раскомментировать следующую строку:
  // HorzScrollBar.Position := HorzScrollBar.Position - WheelDelta;
  Exit;
end;

В этом примере мы двигаем вертикальную позицию прокрутки колесика мыши только для самого компонента TScrollBox. Если нужна горизонтальная прокрутка, необходимо закомментировать первую строку и раскомментировать вторую.