Прокрутка ScrollBox колёсиком мыши - Delphi

procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject;

Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);

begin
Scrollbox1.VertScrollBar.Position:= Scrollbox1.VertScrollBar.Position +12;
end;

procedure TForm1.ScrollBox1MouseWheelUp(Sender: TObject;

Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);

begin
Scrollbox1.VertScrollBar.Position:= Scrollbox1.VertScrollBar.Position -12;
end;

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.