delphi xe 窗体子控件实现窗体拖动

在窗体子控件的onmousedown函数中调用StartWindowDrag

原文地址:https://www.cnblogs.com/HuiLove/p/4710789.html