组件的调试。

property RButtonDown(var Message:TMessage);message WM_RButtonDown;
以上不能使用property,使用
procedure RButtonDown(var Message:TMessage);message WM_RButtonDown;