拖动一个组件到其他组件上

系统结构:API_释放鼠标,API_俘获鼠标,API_WindowFromPoint,API_SetParent,

======窗口程序集1
           |  |
           |  |------ _按钮1_鼠标左键被按下
           |  |
           |  |------ _按钮1_鼠标左键被放开
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_释放鼠标
           |  |
           |  |---[dll]------   API_俘获鼠标
           |  |
           |  |---[dll]------   API_WindowFromPoint
           |  |
           |  |---[dll]------   API_SetParent

调用的DLL命令:

.DLL命令 API_释放鼠标, 整数型, "user32", "ReleaseCapture", , 为当前的应用程序释放鼠标捕获　TRUE（非零）表示成功，零表示失败

.DLL命令 API_俘获鼠标, 整数型, "user32", "SetCapture", , 将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候，这个窗口会为当前应用程序或整个系统接收所有鼠标输入　之前拥有鼠标捕获的窗口的句柄
    .参数 窗口句柄, 整数型, , 要接收所有鼠标输入的窗口的句柄;  

.DLL命令 API_WindowFromPoint, 整数型, "user32", "WindowFromPoint", , 返回包含了指定点的窗口的句柄。忽略屏蔽、隐藏以及透明窗口　包含了指定点的窗口的句柄。如指定的点处没有窗口存在，则返回零
    .参数 xPoint, 整数型, , x点值
    .参数 yPoint, 整数型, , y点值;

.DLL命令 API_SetParent, 整数型, "user32", "SetParent", , 指定一个窗口的新父（在vb里使用：利用这个函数，vb可以多种形式支持子窗口。例如，可将控件从一个容器移至窗体中的另一个。用这个函数在窗体间移动控件是相当冒险的，但却不失为一个有效的办法。如真的这样做，请在关闭任何一个窗体之前，注意用SetParent将控件的父设回原来的那个）　前一个父窗口的句柄
    .参数 hWndChild, 整数型, , 子窗口的句柄
    .参数 hWndNewParent, 整数型, , hWndChild的新父;