События колеса мыши без фокуса

[AVer]

Добрый день. Столкнулся со следующей проблемой:

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

[Аватар]

ActiveControl:=ScrollBox; например в OnFormCreate и ScrollBox.OnMouseWheel уже работает

[AVer]

Повесил на OnMouseMove этих панелек - не помогло. Есть еще какие то мысли?

[Аватар]

А зачем на панели? Фокус на ScrollBox и его OnMouseWheel будет работать даже если курсор на панели. Скролинг то всего нужен, а не конкретной панели. А в событии определить к какому ControlScrollBar ближе курсор и делать вертикальный или горизонтальный скролинг

[AVer]

Возникло недопонимание. =) Я повесил ActiveControl:=ScrollBox на OnMouseMove панелей, то есть фокус на скроллбокс переводится постоянно когда мышь над панелями, так, для надежности. Но это не сработало.

[Аватар]

Тогда в ScrollBox.OnMouseMove делать при необходимости ActiveControl:=ScrollBox.

[AVer]

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

Попробуйте кинуть на форму ScrollBox, а на него панель, выходящую за границы, так чтобы появилась полоса прокрутки и запустите. Покрутив скроллом поймете мою проблему. =)

[xoodoo]

Обрабатываешь Application.OnMessage, ловишь там WM_MOUSEWHEEL.
lParam тебе даст абсолютные экранные координаты мышиного курсора.
Вызовом WindowFromPoint получаешь хендл окна под курсором.
Вызовом FindControl ищешь соответствующий винконтрол .
Если он найден и является твоим скроллбоксом, то крутишь его программно используя параметры, переданные в wparam.

[AVer]

Пробовал и так, но когда курсор над панелью приложение как будто вообще не получает сообщения WM_MOUSEWHEEL.

[Аватар]

Покрутив скроллом поймете мою проблему

А я и попробовал. Даже если курсор над панелью ScrollBox.OnMouseWheel работает если ScrollBox в фокусе. И даже если курсор за пределами ScrollBox