组件制作之四（定制外观）

那么鼠标进入和离开怎么判断呢，这里Memo将截获两个Delphi的内部消息：

//下面两个获得Delphi的内部消息,鼠标进入和离开时发生

procedure CMMouseEnter (var Message: TMessage); message CM_MOUSEENTER;

procedure CMMouseLeave (var Message: TMessage); message CM_MOUSELEAVE;

其实父类已经截获了这两个消息，并作了相应处理，所以TCoolMemo中的消息处理函数要

Inherited;再作自己的处理。这里又用到了一个变量

MouseIn：Boolean;//标识鼠标是否进入组件

接下来TCoolMemo还要截获两个消息：

procedure WMPaint (var Message: TMessage); message WM_PAINT;

procedure WMNCCalcSize (var Message: TWMNCCalcSize); message WM_NCCALCSIZE;

第一个很熟悉，当需要重画时，触发该消息，

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!