易语言API拖动窗口源码

系统结构:复制组件,调整窗口事件,窗口移动,改变窗口_,取窗口矩形_,取鼠标位置_,强制更新窗口,俘获鼠标_,释放鼠标_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 复制组件
           |  |
           |  |------ 调整窗口事件
           |  |
           |  |------ _调整窗口_时钟_周期事件
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _移动标签_鼠标左键被按下
           |  |
           |  |------ _移动标签_鼠标左键被放开
           |  |
           |  |------ __启动窗口_鼠标左键被按下
           |  |
           |  |------ __启动窗口_鼠标左键被放开
           |  |
           |  |
======程序集1
           |  |
           |  |------ 窗口移动
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   改变窗口_
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   取鼠标位置_
           |  |
           |  |---[dll]------   强制更新窗口
           |  |
           |  |---[dll]------   俘获鼠标_
           |  |
           |  |---[dll]------   释放鼠标_

调用的DLL命令:

.DLL命令 改变窗口_, 整数型, "user32.dll", "MoveWindow", , ,
    .参数 窗口句柄, 整数型, , hwnd，欲移动窗口的句柄
    .参数 左侧位置, 整数型, , x，窗口新的左侧位置
    .参数 顶部位置, 整数型, , y，窗口新的顶部位置
    .参数 新宽度, 整数型, , nWidth，窗口的新宽度
    .参数 新高度, 整数型, , nHeight，窗口的新高度
    .参数 是否重画, 逻辑型, , bRepaint，如窗口此时应重画，则设为TRUE（非零）

.DLL命令 取窗口矩形_, 整数型, "user32", "GetWindowRect", , ,
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形_

.DLL命令 取鼠标位置_, 整数型, "user32", "GetCursorPos", , ,
    .参数 位置, 坐标_

.DLL命令 强制更新窗口, 整数型, "user32", "UpdateWindow", , 强制立即更新窗口，窗口中以前屏蔽的所有区域都会重画（在vb里使用：如vb窗体或控件的任何部分需要更新，可考虑直接使用refresh方法　非零表示成功，零表示失败
    .参数 句柄, 整数型, , 欲更新窗口的句柄;

.DLL命令 俘获鼠标_, 整数型, "user32", "SetCapture", , ,
    .参数 窗口句柄, 整数型

.DLL命令 释放鼠标_, 整数型, "user32", "ReleaseCapture", , ,