控件怎么移动啊

控件如何移动啊？
我看到了一种方法是在OnMouseDown里添加
ReleaseCapture();      
SendMessage(Control-> Handle,WM_NCLBUTTONDOWN,HTCAPTION,NULL);      
但是当鼠标在控件上的时候就无法拖动了，而我需要的就是鼠标在控件上的时候可以拖动它，这怎么实现啊？

[解决办法]
mousedown里写
WORD SC_DragMove = 0xF012;
ReleaseCapture();
((TWinControl*)Sender)-> Perform(WM_SYSCOMMAND,SC_DragMove,0);
[解决办法]
执行后在控件上按下鼠标并移动控件是可以移动的 我这里跑了一遍没什么问题 不知道你想要的是不是这个效果
[解决办法]
对拥有handle的控件是有效的，对无handle的控件是无效的。