Текущий архив: 2003.10.13;
Скачать: 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 вся ветка
Текущий архив: 2003.10.13;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.019 c
