鼠标在窗体上的 移入 和 移出 事件 ( 积分: 100 )

procedure CMMouseenter(var Message: TMessage); message CM_MOUSEENTER;<br>procedure CMMouseleave(var Message: TMessage); message CM_MOUSELEAVE;<br><br>这两个函数如何用,为什么在我的程序中不起作用<br>( 我用了 CreateParams 函数,是否有影响?<br>procedure TFmLinks.CreateParams(var Params: TCreateParams);<br>begin<br> &nbsp;inherited;<br> &nbsp;with Params do<br> &nbsp;begin<br> &nbsp; &nbsp;Style := WS_POPUP or WS_CLIPSIBLINGS or WS_SYSMENU or WS_CAPTION or WS_SIZEBOX or WS_MAXIMIZEBOX;<br> &nbsp; &nbsp;ExStyle := WS_EX_DLGMODALFRAME or WS_EX_WINDOWEDGE;<br> &nbsp; &nbsp;WindowClass.Style := CS_OWNDC or CS_SAVEBITS;<br> &nbsp; &nbsp;WndParent := pHWND;<br> &nbsp;end;<br>end;<br>)

procedure CMMouseenter(var Message: TMessage); message CM_MOUSEENTER;<br>procedure CMMouseleave(var Message: TMessage); message CM_MOUSELEAVE;<br><br>这两个函数如何用,为什么在我的程序中不起作用<br>( 我用了 CreateParams 函数,是否有影响?<br>procedure TFmLinks.CreateParams(var Params: TCreateParams);<br>begin<br> &nbsp;inherited;<br> &nbsp;with Params do<br> &nbsp;begin<br> &nbsp; &nbsp;Style := WS_POPUP or WS_CLIPSIBLINGS or WS_SYSMENU or WS_CAPTION or WS_SIZEBOX or WS_MAXIMIZEBOX;<br> &nbsp; &nbsp;ExStyle := WS_EX_DLGMODALFRAME or WS_EX_WINDOWEDGE;<br> &nbsp; &nbsp;WindowClass.Style := CS_OWNDC or CS_SAVEBITS;<br> &nbsp; &nbsp;WndParent := pHWND;<br> &nbsp;end;<br>end;<br>)