1.任何一个组件把属性Dragkind中要设置为dmautomatic才能被拖动
2.任何一个组件都有它的parent属性，就是定位和指定它的父亲是谁当要dragover事件中参数 accept属性时候允许脱离父亲，一般设置为true，
在拖动的时候要设置parent属性为另外一个窗体，因为在拖动到另外的一个组件上面的时候它的父亲要马上改变这样才能确定位置
这样不需要任何控件即可在运行时拖动任意对象
delphi有一组编译器控件 你去下载下 几乎不用什么代码就搞定了 可以实现运行时拖动
内容全部来源于网络收集，如有侵权，请联系网站删除！