Обработка колеса мыши в TScrollBox

[mutabor]

ScrollBox не получает события колеса мыши, средствами Дельфи не могу получить их. Как лучше и быстрее решить эту проблему?
Причем что интересно, на ноутбуке ScrollBox к-рый имеет фокус без никаких дополнительных манипуляций с моей стороны прокручивается с тачпада, но мышью не хочет, а нужно мышью также.

[Grag]

Сообщение от mutabor

ScrollBox не получает события колеса мыши, средствами Дельфи не могу получить их. Как лучше и быстрее решить эту проблему?
Причем что интересно, на ноутбуке ScrollBox к-рый имеет фокус без никаких дополнительных манипуляций с моей стороны прокручивается с тачпада, но мышью не хочет, а нужно мышью также.

Обрабатывай события OnMouseWheelUp и OnMouseWheelDown

[mutabor]

Сообщение от Grag

Обрабатывай события OnMouseWheelUp и OnMouseWheelDown

Спасибо за совет, я писал уже - "средствами Дельфи не могу получить их"

Тут типа SetWindowLong или еще чего в этом роде, или сообщения ловить системные, приблизительно я догадываюсь, вобщем нужен пинок в нужном направлении (более конкретном). Если кто-то уже решал такую же проблему и поделился опытом, было бы вообще отлично.

[mihali4]

Сообщение от mutabor

ScrollBox не получает события колеса мыши, средствами Дельфи не могу получить их. Как лучше и быстрее решить эту проблему?

Фокус в том, что нужно обрабатывать именно эти события, но... для самой формы.
А там уже смотреть

if Sender is TScrollBox then

[Grag]

Я писал прогу, где на панели динамически размещалась куча компонентов:таблицы, метки, мемо и пр. Все это приводило к тому, что появлялся верт. скроллинг. Этот скрол перемещался только мышом, но на колесико не реагировал, пока я не сделал обработку событий, про которые уже писал... Теперь все работает как надо и колесиком и левой кн. мыша.

18:21

Сообщение от mihali4

Фокус в том, что нужно обрабатывать именно эти события, но... для самой формы.
А там уже смотреть

if Sender is TScrollBox then

А какой смысл крутить скрол мышом, если мыша висит вне компонента?
Нужно обрабатывать события того компонента у которого нужно крутить скрол, но предварительно установить фокус на нем....

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

Из правил раздела (которые вы не удосужились прочесть) :

3. Не флудить. Флудом (пустой болтовней) считается все, не относящееся к теме. Здесь не чат, а форум серьезно увлеченных людей.
К флуду относится также:
- необоснованное (не требующееся по смыслу) цитирование предыдущего поста;
- размещение своих постов подряд друг за другом - пользуйтесь кнопкой "Правка" для изменения своего сообщения.
За флуд - автор поста получит нарушение №1 - "Флуд" и 2 очка штрафа.

4. Не оффтопить. Оффтопом считается создание темы, не соответствующей названию раздела, вопрос или пост не по теме, или попытка перевода темы в русло другого вопроса.
Также к оффтопу приравнивается размещение своих личных вопросов в чужой теме, пусть даже и подходящей по смыслу. Есть вопрос - создайте свою тему.
И запомните - "Одна тема - один вопрос", "Одна тема - один автор".
За оффтоп нарушитель получит нарушение №1 - "Флуд" и 2 очка штрафа.

[mutabor]

Прошу прощения, я неверно сформулировал вопрос, проблема не получать событие, а заставить скроллбокс стандартным образом прокручивать себя, без махинаций со значением DeltaY в методе ScrollBy, у меня каждый раз разного размера содержимое в скроллбоксе, это просто будет мартышкин труд - настраивать степень прокрутки вручную в методе ScrollBy, если есть возможность автоматически заставить его реагировать на мышь. На ноутбуке с тачпада он же автоматом прокручивается, т.е. что-то посылает контролу команду прокрутиться.

p.s. Вопрос решил, ключ к решению здесь http://www.delphisources.ru/pages/fa...ll_arrows.html
остается только прикрутить это к событиям прокрутки колеса мыши формы.

[Grag]

Сообщение от mutabor

Прошу прощения, я неверно сформулировал вопрос,

Правильно поставленная задача - половина успеха в ее решении!