bcb控件拖放

转自：http://hi.baidu.com/luoshupeng/blog/item/a27f3429c571b9f999250a88.html

控件分为两种：有Handle的和无Handle的。
一、对于有Handle的控件，如Button，Edit类可以使用如下方法：
在控件的MouseMove事件中写入：
WORD SC_DragMove = oxF012;
ReleaseCapture();
((TWinControl*)Sender)->Perform(WM_SYSCOMMAND,SC_DragMove,0);
二、对于没有Handle的控件，如Label，Image类可以使用如下方法：
控件的属性设置：
DragKind: klDock; 
DragModal: dmAutoMatic
控件的容器属性设置：
DockSite: true
经过以上设置后，在控件的OnEndDock事件中写入：
((TControl*)Sender)->HostDockSite   =   (TWinControl*)0xFFFFFFFF;
就可以拖动了。

其实所有的控件按照第二种方法都可以拖动，只是在拖动Button时控件的外观不好看。