在按钮上使用自定义鼠标形状(已经解决)

gto250 · 发表于 2010-5-12 23:25:31

本帖最后由 gto250 于 2010-5-13 06:57 编辑

#Include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>
#Include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

Global $hForm, $hCursor

;$hCursor = _WinAPI_LoadCursor(0, 32649) ; IDC_HAND
$hCursor = _WinAPI_LoadCursor(_WinAPI_GetModuleHandle(@SystemDir & '\user32.dll'), 116)

$hForm = GUICreate('MyGUI')
GUIRegisterMsg($WM_SETCURSOR, 'WM_SETCURSOR')
GUISetState()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func WM_SETCURSOR($hWnd, $iMsg, $wParam, $lParam)
  Switch $hWnd
    Case $hForm
      _WinAPI_SetCursor($hCursor)
      Return 0
  EndSwitch
  Return $GUI_RUNDEFMSG
EndFunc ;==>WM_SETCURSOR

这段代码可以在GUI界面上改变鼠标形状，但是如果在这个界面上添加一个按钮的话，如果鼠标移动到按钮上，鼠标形状就会变成没有改变前的原始指针状态。
哪位兄弟有办法，能在控件上使用自定义鼠标形状

afan · 发表于 2010-5-12 23:39:50

GUICtrlSetCursor()?

lynfr8 · 发表于 2010-5-13 03:03:16

#Include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>
#Include <WindowsConstants.au3>
Global $hForm, $hCursor

$hForm = GUICreate('在按钮上使用自定义鼠标形状')
GUIRegisterMsg($WM_SETCURSOR, 'WM_SETCURSOR')
$Button1= GUICtrlCreateButton("按钮", 125, 40,125, 40)
GUISetState()
Do
$h = Random(100, 116, 1)
Sleep(50)
$hCursor = _WinAPI_LoadCursor(_WinAPI_GetModuleHandle(@SystemDir & '\user32.dll'), $h)
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func WM_SETCURSOR($hWnd, $iMsg, $wParam, $lParam)
  Switch $hWnd
    Case $hForm 
      _WinAPI_SetCursor($hCursor)
      Return 1
  EndSwitch
  Return $GUI_RUNDEFMSG
EndFunc

afan · 发表于 2010-5-13 09:35:21

woeiwoei · 发表于 2010-5-13 13:19:42

GUICtrlSetCursor(控件ID,指针)

		自动登录	找回密码
密码			加入

[网络通信] 在按钮上使用自定义鼠标形状(已经解决)

相关帖子

本帖子中包含更多资源