Как заставить работать колесо прокрутки на форме?

← →
allucard (2007-04-20 11:52) [0]

Доброго дня.

Есть форма с линейкой прокрутки, как её заставить прокручиваться от колеса прокрутки?

Спасибо.

← →
Elen © (2007-04-20 12:28) [1]

Если я правильно понимаю вопрос то:

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

← →
X9 © (2007-04-20 12:29) [2]

В смысле, у формы AutoScroll установлено в True?

Тогда так:

Оформляем обработчик OnMouseWheelUp следующим образом:

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin Form1.VertScrollBar.Position := Form1.VertScrollBar.Position + 10; end;

А OnMouseWheelDown, соответственно, так:

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin Form1.VertScrollBar.Position := Form1.VertScrollBar.Position - 10; end;

Где 10 - желаемый шаг прокрутки.

← →
allucard (2007-04-20 12:44) [3]

Спасибо

Как заставить работать колесо прокрутки на форме? Найти похожие ветки