There are two mouse-messages that are never received unless you explicitly instruct Windows to track the mouse movement. The first message is WM_MOUSELEAVE that is supposed to report that the mouse has left the client-area. The second is WM_MOUSEHOVER which is posted after hovering a certain amount of time over some area. To obtain one (or both) of these messages you need to call TrackMouseEvent() API which notifies the application when the mouse leaves the window or when the mouse hovers over an area for a while.
The next program illustrates how to implement a mouseover feature by drawing a box that turns black when you move the mouse over it. The basic idea is to use WM_ MOUSEMOVE to know when the mouse has moved in or out of the box. The only problem is that if the user moves the mouse quickly outside the window, you won't get a WM_ MOUSEMOVE. To implement a correct behavior of mouseover, you need to know when the mouse has left the window entirely.
The program doesn’t use the _MouseMove eventsub, but combines the mouseover-logic into the _Message eventsub, which receives all (posted) mouse messages. There are no event subs for WM_MOUSELEAVE and WM_MOUSEHOVER, so they have to be handled in a general event- sub. An alternative would be to handle the messages in _MessageProc, but its use is a bit more complicated. In addition, _Message doesn’t require any return values, so it serves our purpose best.
OpenW Center 1 Do Sleep Until Win_1 Is Nothing Sub Win_1_Paint Box 10, 10, 100, 100 EndSub Sub Win_1_Message(hWnd%, Mess%, wParam%, lParam%) Static Bool fTrackingMouse, fBoxHighLighted Dim tme As TRACKMOUSEEVENT Local Int mx, my Switch Mess% Case WM_MOUSEMOVE ' Track a mouseleave event. Results in a WM_MOUSELEAVE ' message when the mouse leaves the window. If !fTrackingMouse ' set it only once tme.cbSize = SizeOf(TRACKMOUSEEVENT) tme.dwFlags = TME_LEAVE tme.hwndTrack = Me.hWnd fTrackingMouse = TrackMouseEvent(tme) != 0 EndIf ' If mouse is over the box start timer mx = LoWord(lParam%), my = HiWord(lParam%) If mx > 10 && mx < 100 && my > 10 && my < 100 tme.cbSize = SizeOf(TRACKMOUSEEVENT) tme.dwFlags = TME_HOVER ' start timer tme.hwndTrack = Me.hWnd tme.dwHoverTime = HOVER_DEFAULT ' use default time TrackMouseEvent(tme) ' now wait for WM_MOUSEHOVER Else If fBoxHighLighted ' hilighted and not over box Win_1.Invalidate 10, 10, 90, 90 fBoxHighLighted = False EndIf Case WM_MOUSELEAVE ' triggered by TrackMouseEvent fTrackingMouse = False ' TrackMouseEvent not active anymore If fBoxHighLighted ' redraw original box Win_1.Invalidate 10, 10, 90, 90 fBoxHighLighted = False ' box is not highlighted EndIf Case WM_MOUSEHOVER ' triggered by TrackMouseEvent's timer mx = LoWord(lParam%), my = HiWord(lParam%) ' mouse coordinates If !fBoxHighLighted && mx > 10 && mx < 100 && my > 10 && my < 100 PBox 10, 10, 100, 100 ' highlight the box fBoxHighLighted = True EndIf EndSwitch EndSub Public Const HOVER_DEFAULT = 0xFFFFFFFF Type TRACKMOUSEEVENT - DWord cbSize - DWord dwFlags - Handle hwndTrack - DWord dwHoverTime EndType Declare Function TrackMouseEvent Lib "user32" Alias _ "TrackMouseEvent" (ByRef EventTrack As TRACKMOUSEEVENT) As Long
The _Message sub declares two static booleans, fTrackingMouse and fBoxHighLighted, that keep track of the current state of the mouseover-logic. (If I would have used the _MouseMove eventsub to initiate the mouse tracking the variables should have been declared global, I always try to avoid global variables as much as possible.)
When the first (of many) WM_MOUSEMOVE message is received, the TrackMouseEvent() API is used to set up a WM_MOUSELEAVE "one-shot" event. Exactly one and only one WM_MOUSELEAVE message will be posted to the window specified in the hwndTrack member of the TRACKMOUSEEVENT structure, when the mouse has left the client area.
Note - The message will be generated only once. The application must call the TrackMouseEvent API again in order for the system to generate another WM_MOUSELEAVE message. In addition, when the mouse pointer is not over the application, a call to TrackMouseEvent() will result in the immediate posting of a WM_MOUSELEAVE message.
When the mouse is over the box, the TrackMouseEvent() is used to start a timer that eventually posts the WM_MOUSEHOVER message. After receiving WM_MOUSEHOVER the box is highlighted if the mouse is still over the box. The fBoxHighLigted variable is set to indicate the state of the box. If the variable is set but the mouse is no longer over the box the area occupied by the box is invalidated so that it is redrawn eventually.
Post a Comment