Прокрутка 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;

Возврат к списку

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

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

GURU

Новости

Наши услуги

Связаться с нами
sguruapp@gmail.com
+7 771 559 26 76 WhatsApp, Viber, Telegram
Остались вопросы? Закажите обратный звонок, мы Вам перезвоним в любую точку мира

Правила

Политика конфиденциальности

Дополнительно