鼠標離開窗口或控件及懸停的消息(源碼)

  勇芳 2017-10-22 4835

鼠標離開窗口或控件及懸停的消息(源碼)

這功能很常用,很多人自己用定時器做。

其實這是微軟WIN編程里本來就有的功能,只是很少被人提及,很多人不知道而以。

下面編程環境:FireFly for FreeBASIC   (其它可以稍加改改即可)

Function FORM2_CUSTOM ( _
                      hWndForm      as HWnd, _      ' 窗體句柄
                      wMsg          as UInteger,  _  ' 消息類型
                      wParam        as WPARAM, _    ' 第一個消息參數
                      lParam        as LPARAM   _   ' 第二個消息參數
                      ) as Long

Dim entTrack as tagTRACKMOUSEEVENT
Select Case  wMsg
    Case WM_MOUSELEAVE   '鼠標出窗口
         Print "鼠標出窗口"   
    Case WM_MOUSEHOVER   '鼠標懸停
        Print "懸停"
    Case WM_NCHITTEST        '啟用鼠標檢查 
        entTrack.cbSize=SizeOf(tagTRACKMOUSEEVENT)
        entTrack.dwFlags=TME_LEAVE Or TME_HOVER '移出 和 懸停 標志
        entTrack.hwndTrack=hWndForm '被檢查窗口或控件
        entTrack.dwHoverTime =300  '懸停時間 ms
        TrackMouseEvent @entTrack  
End Select
End Function

如果是VB,那需要

1,聲明API

2,子類化窗口


因國家互聯網安全管理要求,關閉回帖功能。大家需要留言,請使用【勇芳軟件客服】即時聯系勇芳點此打開->>勇芳軟件客服
返回
聯系勇芳
一个人看的www视频播放中文_2012中文字幕电影_亚洲国产成人高清在线观看_中文字幕天堂最新版在线网