Обработка сообщения WM_MOUSEMOVE и мерцание курсора

[anian]

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


Private Function ISubclass_WindowProc(ByVal hwnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Dim tTME As tagTRACKMOUSEEVENT

  Select Case iMsg
    Case WM_MOUSELEAVE
        Debug.Print "mouse leave"
        g_bOver = False
        pDraw
    Case WM_MOUSEMOVE
        Debug.Print "wm_move"
        'SetCursor LoadCursor(0, IDC_IDC_SIZEALL)
        If Not g_bOver Then
            g_bOver = True
           
            SetCursor LoadCursor(0, IDC_IDC_SIZEALL)
            Debug.Print "true over"
            With tTME
               .cbSize = LenB(tTME)
               .hwndTrack = hwnd
               .dwFlags = TME_LEAVE
               .dwHoverTime = HOVER_DEFAULT
            End With
   
            TrackMouseEvent tTME
           
            pDraw
        End If
    End Select
   
End Function


Вот такой код в usercontrol'e. Сабклассер от Стива МакМэхона. При движении курсора по контролу он постоянно мерцает - то мой курсор, то стандартный. Как я понимаю, приходит какое-то сообщение, которое его сбрасывает. Если убрать камент у SetCursor после Debug.Print "wm_move", ничего не меняется, так же мерцает...как эту проблему решить?

[GSerg]

Не страдать фигнёй, а пользоваться для задания курсора соответствующим свойством контрола.
Но если хочется через ж, то отлавливай WM_SETCURSOR.

[anian]

В свойствах контрола я могу задать тока свой курсор...а ежели у человека он иначе выглядит? Это не есть гуд.
Поймал WM_SETCURSOR и что дальше делать? Устанавливать свой? не помогает, меньше, но мерцает...Не пропускать его до контрола?

[GSerg]

В свойствах контрола я могу задать тока свой курсор...а ежели у человека он иначе выглядит? Это не есть гуд.

Смысл этого текста я не смог постичь.

Поймал WM_SETCURSOR и что дальше делать? Устанавливать свой? не помогает, меньше, но мерцает...Не пропускать его до контрола?

Потому что, наверное, надо читать MSDN на предмет того, что должно возвращать приложение, самостоятельно обработавшее это сообщение?

[anian]

Смысл этого текста я не смог постичь.

Пользователь может изменить вид курсора IDC_SIZEALL в системных настройках свойств мыши, так? И он будет отличаться от того, что я впихну в свойство MouseIcon контрола.

Потому что, наверное, надо читать MSDN на предмет того, что должно возвращать приложение, самостоятельно обработавшее это сообщение?

Уважаемый GSerg, а вы можете сказать, что и как оно должно возвращать?

[GSerg]

Пользователь может изменить вид курсора IDC_SIZEALL в системных настройках свойств мыши, так? И он будет отличаться от того, что я впихну в свойство MouseIcon контрола.

А есть ещё, как ни странно, свойство MousePointer...

Уважаемый GSerg, а вы можете сказать, что и как оно должно возвращать?

Нет, но я могу посоветовать открыть http://msdn.microsoft.com/library и ввести в маленькую строку поиска WM_SETCURSOR.
Впрочем, ввиду сказанного выше, это тупиковый путь.

[anian]

Я знаю про это свойство, но: в зависимости от ситуации над контролом может быть один из нескольких курсоров IDC_SIZE*, а так же , что самое прискорбное, иногда IDC_HAND...MouseIcon и MousePointer не подходят, ибо я хочу что бы все курсоры брались из системы.

GSerg, я честно читал статьи про WM_SETCURSOR в МСДН...но понять на должном уровне не смог...если вы знаете метод решения, поделитесь, пожалуйста знанием(не примером, а алгоритмом хотя бы)...если нет - ну тада отстану

[anian]

Вроде решил проблему, работает. Поменял SetCursor на SetClassLong.