易语言 让文本插入编辑框鼠标所在位置?

2025-03-24 14:42:16
推荐回答(1个)
回答1:

请确认你使用的窗口组件是按钮1、编辑框1、组合框1

.版本 2

.程序集 窗口程序集1
.程序集变量 光标位置, 整数型

.子程序 _编辑框1_失去焦点

光标位置 = 编辑框1.起始选择位置

.子程序 _按钮1_被单击
.局部变量 内容, 文本型

内容 = 编辑框1.内容
编辑框1.内容 = 取文本左边 (编辑框1.内容, 编辑框1.起始选择位置) + 组合框1.内容 + 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) - 编辑框1.起始选择位置)

PS:代码的好处是即使焦点暂时移动不影响输入位置。