Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


Alextp ©   (2006-06-08 19:25:00) 

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

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

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


Zz_   (2006-06-09 17:11:00) [1]

SetCapture ?


han_malign   (2006-06-09 17:09:00) [2]


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

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


Alextp   (2006-06-09 16:29:00) [3]

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

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

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


han_malign   (2006-06-09 12:57:00) [4]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо