Прокрутка в TSrollBox

← →
oleg__ (2007-02-15 10:51) [0]

Добрый день!
Имеется TScrollBox, набор компонентов на нем. AutoScrool = true. На колесико мышки не реагирует, приходится прокручивать вручную вертикальную полосу прокрутки. Как сделать, чтобы была реакция на колесо мыши?

← →
TRUNK © (2007-02-15 11:14) [1]

Этот код будет прокручивать ScrollBox вертикально, а при нажатом Shift - горизонтально:
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin Handled := true; if (WheelDelta > 0) then WheelDelta := 10 else if (WheelDelta < 0) then WheelDelta := -10 else Exit; if (ssShift in Shift) then ScrollBox1.HorzScrollBar.Position := ScrollBox1.HorzScrollBar.Position - WheelDelta else ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - WheelDelta; end;

← →
oleg__ (2007-02-15 11:29) [2]

> TRUNK
Спасибо!

Прокрутка в TSrollBox Найти похожие ветки