Что нового
  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Вращение Колесика Мыши

Lomanu4

Команда форума
Администратор
Регистрация
1 Мар 2015
Сообщения
1,184
Баллы
155
демонстрирует один из вариантов управления полосой прокрутки ScrollBar1:TScrollBar1 при посредничестве события OnMouseWheel() формы.
Код:
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;

WheelDelta: Integer; MousePos: TPoint;

var Handled: Boolean);

begin

if WheelDelta>0 then ScrollBar1.Position:=ScrollBar1.Position-1;

else

if WheelDelta<0 then ScrollBar1.Position:=ScrollBar1.Position+1;

Handled:=true;
property OnMouseWheelUp: TMouseWheelUpDownEvent; //вращение вверх

property OnMouseWheelDown: TMouseWheelUpDownEvent; //вращение вниз

type TMouseWheelUpDownEvent = procedure(Sender: TObject; 

 Shift: TShiftState; MousePos: TPoint; 

var Handled: Boolean) of object;
end;
 
Вверх