Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

Спасибо

---

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

Форум: "Начинающим";
Текущий архив: 2007.05.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.039 c