Проблемы с MouseWheel и ScrollBar.

[Avtopic]

Здравствуйте!

У меня проблемы с MouseWheel и ScrollBar.

Устанавливая

Код: Выделить всё

SetWindowLong(UserControl.hwnd, GWL_WNDPROC, AddressOf WindowProc)

и ловя WM_MouseWheel, для UserControl-а, этот Msg приходит и от Control-а и от Формы на котором этот Control сидит.
Это почему?

Спасибо!

[Atoman]

С ообщение WM_MouseWheel приходит только от твоего UserControl-а,
дело в том что это сообщение будет приходить до те пор пока твой UserControl имеет фокус.
Например брось рядом с UserControl-ом кнопочку и нажми на неё,
и от твоего UserControl-а сообщение WM_MouseWheel больше не пойдёт пока UserControl не получит фокус.

[Avtopic]

Спасибо за ответ. В моем случае ошибка заключалось в том, что нужно было отслеживать
WM_VSCROLL вместо WM_MouseWheel. Все исправил и все работает.

Но другой, более простой вопрос?

Как писал выше, все это, происходит в UserControl-е.

Там все ошибки прослеживаются, и при необходимости, вовремя снимаю хук.

Как бороться с падением программы, когда ошибка происходит в программе, где используется этот контроль. При любой ошибке не имеющее отношение к контролю, происходит падение программы.

Т.е. как корректно снимать хук в контроле, когда ошибка происходит в основной программе.

[Atoman]

А падение происходит в IDE ?

[Avtopic]

Да

[Atoman]

Тогда на стадии разработки сабклассинг подключай из другого контрола.
Падений почти не будет.

[iGrok]

Я при старте сабклассинга просто проверяю, что я не в IDE.
Ну и не ставлю хук на отладку.

[Lumen]

Аналогично. Вот так проверяю в IDE запущена программа или нет:

Код: Выделить всё

Private Function InIDE(Optional ByRef blArg As Boolean) As Boolean
Static blRet As Boolean
blRet = blArg
If Not blRet Then
    Debug.Assert InIDE(True)
End If
InIDE = blRet
End Function


Соответственно проверяем так:

Код: Выделить всё

If Not InIDE() then 'мы не под IDE