Функция WM_SETCURSOR

 ↑  ←  Описание функции


WM_SETCURSOR

Сообщение выполняется при скольжении курсора мыши в окне.

Параметры

Указанные параметры передаются системой.
$wParam Дескриптор окна или элемента, над которым находится курсор
$lParam Двойное слово содержит:
    младшее слово = Код, определяющий в какой области находится курсор
    старшее слово = Сообщение от мыши, нажатие и отпуск

Примечания

Смотрите функцию GUIRegisterMsg.

Пример

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

Global $assot[19][2] = [ _
[1, '1 - Клиентская область'], _
[2, '2 - Заголовок'], _
[3, '3 - Иконка'], _
[5, '5 - Меню'], _
[6, '6 - Горизонтальная прокрутка'], _
[7, '7 - Вертикальная прокрутка'], _
[8, '8 - Свернуть'], _
[9, '9 - Развернуть'], _
[10, '10 - Левый грань'], _
[11, '11 - Правая грань'], _
[12, '12 - Верхняя грань'], _
[13, '13 - Левый верхний угол'], _
[14, '14 - Правый верхний угол'], _
[15, '15 - Нижняя грань'], _
[16, '16 - Левый нижний угол'], _
[17, '17 - Правый нижний угол'], _
[18, '18 - Рамка'], _ ; если стиль без возможности изменения размера окна (-1)
[20, '20 - Закрыть'], _
[21, '21 - Знак вопроса']]

Global $k = 0, $Byfer
$hGui = GUICreate("WM_SETCURSOR", 510, 140, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_HSCROLL, $WS_VSCROLL), $WS_EX_TOPMOST)
GUICtrlCreateLabel('Функция WM_SETCURSOR выполняется при скольжении курсора мыши в окне.', 5, 3, 400, 17)
$Button = GUICtrlCreateButton('Button', 10, 25, 70, 25)
$StatusBar = GUICtrlCreateLabel('', 5, 55, 270, 74)
GUISetState()

GUIRegisterMsg($WM_SETCURSOR, "WM_SETCURSOR")

Do
Until GUIGetMsg() = -3

Func WM_SETCURSOR($hWnd, $Msg, $wParam, $lParam)
    $k += 1
    $Hittest = BitAND($lParam, 0xFFFF) ; _WinAPI_LoWord
    $MouseMsg = BitShift($lParam, 16) ; _WinAPI_HiWord
    WinSetTitle($hGui, '', 'Вызов ' & $k)

    $info_ID = '?'
    For $i = 0 To 18
        If $Hittest = $assot[$i][0] Then
            $info_ID = $assot[$i][1]
            ExitLoop
        EndIf
    Next
    $Tmp = $info_ID & @LF & 'hWnd= ' & $wParam & @LF & 'ID= ' & _WinAPI_GetDlgCtrlID($wParam) & @CRLF & ' MouseMsg = ' & $MouseMsg
    If $Tmp <> $Byfer Then
        GUICtrlSetData($StatusBar, $Tmp)
        $Byfer = $Tmp
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc