取输入光标位置模块

易语言 2020-04-20 14:45:33

取输入光标位置模块

.子程序 取输入光标位置, p_, , 取可编辑输入光标的位置点
.参数 控件句柄, 整数型, , 具有可编辑区域的控件句柄
.局部变量 p_, PGUITHREADINFO
.局部变量 ID, 整数型
.局部变量 p, p_, , , p.x,p.y

.判断开始 (控件句柄 = -1)
ID = GetCurrentThreadId ()
.默认
ID = GetWindowThreadProcessId (控件句柄, 0)
.判断结束
p_.cbSize = 48
GetGUIThreadInfo (ID, p_)
p.x = p_.rcCaret.Left
p.y = p_.rcCaret.Top
ClientToScreen (控件句柄, p)
返回 (p)