TBevel中获得鼠标的坐标问题

[Zheast]

鼠标在TBevel控件中移动时，我想得到鼠标在TBevel中的坐标，
可是TBevel没有OnMouseMove事件，而Form的OnMouseMove事件
不处理TBevel所占的区域，如何解决？

[Muf]

实现WM_MOUSEMOVE事件试试看.
定义: procedure abc(Message:TMessage);message WM_MOUSEMOVE;

[musicwind]

继承TBevel，创建自己的TBevel

TMyBevel = Class( TBevel )
published
property OnMouseMove;
end;

然后注册一下。

procedure Register;

//.......

[Asus]

同意楼上的

[Zheast]

WM_MOUSEMOVE我试过不行
继承TBevel可以试试。