拦截CM_MouseEnter、CM_MouseLeave需要引用什么单元？

Question

小弟继承TPanel作了一个类TChatPanel
在此TChatPanel上需要拦截CM_MouseEnter、CM_MouseLeave
来实现类似其他语言的OnMouseOver  OnMouseOut的事件procedure MouseEnter(var Message:TMessage);Message CM_MouseEnter;//偏偏报改消息没定义，
procedure MouseLeave(var Message:TMessage);Message CM_MouseLeave;//是不是需要进行１６进制的定义

Answer 1

不好意思，说得太快了。应该是Controls

Answer 2

还有什么办法可以实现同样效果呢 但最好不要使用MouseDown事件记录X,Y的位置，然后判断是否为控件的上方  好像处理消息还可以使用 
A:重载procedure WndProc(), 
B:Application.processMessages; 
谢过