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

[Lomanu4]

демонстрирует один из вариантов управления полосой прокрутки 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;