+7 771 559 26 76
sguruapp@gmail.com
Меню
×
Мобильные
приложения
Курсы по
программированию
Цены
на услуги
Наши
контакты
Guru
music
Блоги
Новости
Отзывы
Прокрутка 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
;
Возврат к списку
обучись профессии будущего
Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.
Позвоните мне