Question

易语言如何获取鼠标相对于其父窗口的坐标(X,Y)

Answer 1

纯API和核心支持库操作，无需模块，创建个时钟，源码如下：

.版本 2

.DLL命令 GetParent, 整数型, "user32", "GetParent", , $(b)判断指定窗口的父窗口 父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
.参数 窗口句柄, 整数型, , 欲测试的窗口的句柄;

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

.版本 2

.数据类型 矩形_, 公开, RECT
.成员 左边, 整数型, , , Left
.成员 顶边, 整数型, , , Top
.成员 右边, 整数型, , , Right
.成员 底边, 整数型, , , Bottom

.版本 2
.支持库 eAPI

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 2000

.子程序 _时钟1_周期事件
.局部变量 hwnd, 整数型
.局部变量 hwnd_P, 整数型
.局部变量 rect, 矩形_

hwnd ＝ 取鼠标所在窗口句柄 ()
hwnd_P ＝ GetParent (hwnd)
GetWindowRect (hwnd_P, rect)
.如果 (hwnd_P ≠ 0)
输出调试文本 (“左上顶角坐标：(” ＋ 到文本 (rect.左边) ＋ “,” ＋ 到文本 (rect.顶边) ＋ “)”)
输出调试文本 (“左下顶角坐标：(” ＋ 到文本 (rect.左边) ＋ “,” ＋ 到文本 (rect.底边) ＋ “)”)
输出调试文本 (“右上顶角坐标：(” ＋ 到文本 (rect.右边) ＋ “,” ＋ 到文本 (rect.顶边) ＋ “)”)
输出调试文本 (“右下顶角坐标：(” ＋ 到文本 (rect.右边) ＋ “,” ＋ 到文本 (rect.底边) ＋ “)”)
输出调试文本 (“————————————————————”)
.否则
输出调试文本 (“窗口无父窗口”)
.如果结束

Answer 2

.版本 2

.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

编辑框1.内容 ＝ 到文本 (取鼠标水平位置 () － _启动窗口.左边)
编辑框2.内容 ＝ 到文本 (取鼠标垂直位置 () － _启动窗口.顶边)

Answer 3

易语言是什么语言？