Вниз
Скачать: CL | DM;

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

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



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

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



Память: 0.45 MB
Время: 0.024 c
3-1148245972
lamer_y
2006-05-22 01:12
2006.07.23
Access


2-1151858235
МишаК
2006-07-02 20:37
2006.07.23
программирование и интернет


2-1151953146
Yegorchic
2006-07-03 22:59
2006.07.23
Длина и высота TListView.Item


3-1147863832
Delphi basic
2006-05-17 15:03
2006.07.23
Отображение иерархической информации


10-1122639858
ViJen
2005-07-29 16:24
2006.07.23
Дождаться пока ворд закончит печать




   Наверх