Как сделать прокрутку формы колесиком?

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

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

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