Прокрутка мышью за пределами контрола

← →
Alextp © (2006-06-08 19:25) [0]

Хочу сделать в компоненте прокрутку как в RichEdit: при нажатии-утаскивании мыши за пределы контрола вверх или вниз он автоматически прокручивается.
Пока сделал так: в OnMouseMove проверяется

if Y<0 then ScrollUp;
if Y>ClientHeight then ScrollDown;

но работает не очень. Мышь приходится постоянно двигать, иначе MouseMove не вызывается. Как сделать более правильно?

← →
han_malign © (2006-06-09 12:57) [1]

По таймеру проверяешь, что мышь находится "за краем" в допустимых пределах и прокурчиваешь...

← →
Alextp © (2006-06-09 16:29) [2]

Сделал через таймер, все работает.

Другой вопрос: как выставить параметры "Интервал таймера" и "Число прокруч. строк за один раз", чтобы было как в RichEdit?

Пока выставил: 150, 1. Прокручивается очень медленно.

← →
han_malign © (2006-06-09 17:09) [3]

> как выставить параметры "Интервал таймера" и "Число прокруч. строк за один раз"

- интервал таймера - экспериментально, а "скорость прокрутки"(Ч.С.) - можно вычислять по расстоянию мыши от "края", зависимость - тоже экспериментально подобрать...

← →
Zz_ (2006-06-09 17:11) [4]

SetCapture ?

Прокрутка мышью за пределами контрола Найти похожие ветки