Скачать: CL | DM;

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

← →
Tumcoat ©   (2003-10-03 04:14) [0]

Господа, такой вопрос.
Есть форма, размеры которой, гораздо больше размеров экрана и как сделать так чтобы колесиком мыши можно было б двигать форму вверх и вниз?
Заранее спасибо!

---

← →
Zergling ©   (2003-10-03 06:59) [1]

OnMouseWheelUp формы

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Form1.VertScrollBar.Position := Form1.VertScrollBar.ScrollPos - 3 (больше число - больше скорость прокрутки);
end;

---

← →
Tumcoat ©   (2003-10-03 08:08) [2]

Ok!! Все работает! Большое спасибо!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c