Scrollbox прокручивание колесиком мыши

Подскажите как сделать прокручивание колесиком мышки Scrollbox при невидимых скроллбарах ?
2 ответа

TScrollBox.Scrollby


procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin  ScrollBox1.ScrollBy(0, WheelDelta);end;