inherited;//继承，窗体可以继续处理以后的事件
if message.result=htclient then
message.result := htcaption;
方法三：直接向窗体发送一条“wm_syscommand”消息，需要使用未归档的“sc_dragmove”标志，定义如下：
const sc_dragmove = $f012;
我们只能向twincontrol派生组件发送该消息，而且只能响应鼠标按下事件，因为系统会在此时捕获鼠标（当释放鼠标键时，拖动操作是没有意义的）。在窗体的onmousedown事件处理代码：
releasecapture; //释放鼠标的捕获状态；
(sender as twincontrol).perform(wm_syscommand,sc_dragmove,0);//向窗体发送移动消息；
