sguruapp@gmail.com
facebook vk instagram Одноклассники youtube

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

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

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

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

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