拖动控件 超强代码

ReleaseCapture;
SendMessage((sender as tbutton).Handle,WM_NCLBUTTONDOWN , HTCaption, 0);