My Visual Database — TScroLLBox

Re: TScroLLBox

null@example.com (k245) — Mon, 13 Sep 2021 15:28:37 +0000

Пользуясь случаем хочу поблагодарить vovka3003 за решение задачки с прокруткой http://myvisualdatabase.com/forum/viewtopic.php?id=7378

Для меня было неожиданностью, что координаты x,y в обработчике TForm.OnMouseWheel - это экранные координаты, а не относительные координаты внутри формы, но способ рабочий, благодарю!

Вторая неожиданность - событие срабатывает для формы с фокусом, даже если курсор находится не на форме. По мне так это не совсем логично, но лечится проверкой координат мыши...

Re: TScroLLBox

null@example.com (sibprogsistem) — Mon, 13 Sep 2021 15:16:54 +0000

ааа вспомнил, на одной форме было два TScroLLBox и нужно было понять с начало на каком находиться мышка

Re: TScroLLBox

null@example.com (sibprogsistem) — Mon, 13 Sep 2021 15:08:18 +0000

vovka3003 wrote:

OnMouseWheelUp
OnMouseWheelDow
А чем не подошло чтение WheelDelta и вызов соответсвующих процедур (Up, Down)?

я уже и не помню зачем мне это было нужно, но про WheelDelta нужно почитать

Re: TScroLLBox

null@example.com (vovka3003) — Mon, 13 Sep 2021 14:06:57 +0000

OnMouseWheelUp
OnMouseWheelDow

А чем не подошло чтение WheelDelta и вызов соответсвующих процедур (Up, Down)?

Re: TScroLLBox

null@example.com (k245) — Mon, 13 Sep 2021 13:40:25 +0000

Это свойство, которому назначается обработчик событий.
Их пока нет....

Кстати, вы уже решили данную задачу - прокрутку содержимого окна мышкой? Или будете ждать Дмитрия?

Re: TScroLLBox

null@example.com (sibprogsistem) — Thu, 13 Feb 2020 17:15:27 +0000

перепутал свойства с событиями
может я не правильно их объявляю?

мне нужны события колесика мышки для класса TScrollBox

TScroLLBox

null@example.com (sibprogsistem) — Sat, 08 Feb 2020 21:02:48 +0000

В компоненте TScroLLBox отсутствуют свойства

OnMouseWheelUp
OnMouseWheelDow

Дмитрий, добавьте их, пожалуйста!