易语言彗星窗口移动源码

系统结构:取窗口内大小,光标移动,移动窗口,GetWinRECT,ClientToScreen,SetCursorPos,MoveWindow,GetCursorPos,GetParent,GetClientRect,

======窗口程序集1
           |  |
           |  |------ _图片框_窗口移动_鼠标左键被按下
           |  |
           |  |------ _图片框_窗口移动_鼠标左键被放开
           |  |
           |  |------ _图片框_窗口移动_鼠标位置被移动
           |  |
           |  |------ 取窗口内大小
           |  |
           |  |------ 光标移动
           |  |
           |  |------ 移动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWinRECT
           |  |
           |  |---[dll]------   ClientToScreen
           |  |
           |  |---[dll]------   SetCursorPos
           |  |
           |  |---[dll]------   MoveWindow
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   GetParent
           |  |
           |  |---[dll]------   GetClientRect

调用的DLL命令:

.支持库 eAPI

.DLL命令 GetWinRECT, 整数型, , "GetWindowRect"
    .参数 Hwnd, 整数型
    .参数 RECT, 矩形数据, 传址

.DLL命令 ClientToScreen, 整数型, , "ClientToScreen"
    .参数 hwnd, 整数型
    .参数 坐标, 坐标, 传址

.DLL命令 SetCursorPos, 整数型, , "SetCursorPos"
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 MoveWindow, 整数型, , "MoveWindow"
    .参数 Hwnd, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 Width, 整数型
    .参数 Height, 整数型
    .参数 bRepaint, 逻辑型

.DLL命令 GetCursorPos, , , "GetCursorPos"
    .参数 Point, 坐标, 传址

.DLL命令 GetParent, 整数型, , "GetParent"
    .参数 hwnd, 整数型

.DLL命令 GetClientRect, , , "GetClientRect"
    .参数 hwnd, 整数型
    .参数 rect, 矩形数据