Текущий архив: 2007.04.08;
Скачать: CL | DM;

Вниз

Прокрутка в 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
Спасибо!

---

Страницы: 1 вся ветка

Текущий архив: 2007.04.08;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.031 c