复制窗口组件中的问题，

gui123

一个按钮点击事件的子程序。在重复添加配置时遇到了不成功的情况。
代码的主要功能是在点击按钮时，动态创建一些组件，比如按钮和编辑框，并将它们放置在对应的分组框中。一次重复添加成功，可能是在第二次或后续点击时没有正确创建新的实例。
一套方案，没成功
.版本 2

.子程序 _按钮_添加_模版_被单击
.局部变量 来源按钮, 按钮
.局部变量 当前分组框, 分组框
.局部变量 i, 整数型
.局部变量 索引, 整数型
来源按钮 ＝ 取事件组件 ()
索引 ＝ 到整数 (来源按钮.标记)
重定义数组 (配置快捷键, 真, 索引)
复制窗口组件 (按钮_发送_模版, 配置快捷键 [索引].发送数据 [1])
复制窗口组件 (编辑框_快捷键_模版, 配置快捷键 [索引].快捷键 [1])
配置快捷键 [索引].发送数据 [1].置父窗口 (设置配置分支 [索引].分组框 [1])
配置快捷键 [索引].发送数据 [1].可视 ＝ 真
配置快捷键 [索引].发送数据 [1].顶边 ＝ 15
配置快捷键 [索引].发送数据 [1].左边 ＝ 250
配置快捷键 [索引].发送数据 [1].标题 ＝ “发送数据” ＋ 到文本 (索引)
配置快捷键 [索引].发送数据 [1].标记 ＝ 到文本 (索引)
配置快捷键 [索引].快捷键 [1].置父窗口 (设置配置分支 [索引].分组框 [1])
配置快捷键 [索引].快捷键 [1].可视 ＝ 真
配置快捷键 [索引].快捷键 [1].顶边 ＝ 15
配置快捷键 [索引].快捷键 [1].左边 ＝ 20
配置快捷键 [索引].快捷键 [1].内容 ＝ “快捷键” ＋ 到文本 (索引)
配置快捷键 [索引].快捷键 [1].标记 ＝ 到文本 (索引)
二套方案一样没成功
.版本 2

.子程序 _按钮_添加_模版_被单击
.局部变量 来源按钮, 按钮
.局部变量 当前分组框, 分组框
.局部变量 已创建数, 整数型
.局部变量 i, 整数型
.局部变量 索引, 整数型
.局部变量 当前索引, 整数型

来源按钮 ＝ 取事件组件 ()
索引 ＝ 到整数 (来源按钮.标记)

.如果真 (索引 > 取数组成员数(配置快捷键))
重定义数组 (配置快捷键, 假, 索引)
.如果真结束
已创建数 ＝ 取数组成员数(配置快捷键[索引].发送数据)
重定义数组 (配置快捷键[索引].发送数据, 真, 已创建数 + 1)
复制窗口组件 (按钮_发送_模版, 配置快捷键[索引].发送数据[已创建数 + 1])
重定义数组 (配置快捷键[索引].快捷键, 真, 已创建数 + 1)
复制窗口组件 (编辑框_快捷键模版, 配置快捷键[索引].快捷键[已创建数 + 1])
配置快捷键[索引].发送数据[已创建数 + 1].置父窗口 (设置配置分支[索引].分组框[1])
配置快捷键[索引].发送数据[已创建数 + 1].可视 ＝ 真
配置快捷键[索引].发送数据[已创建数 + 1].顶边 ＝ 15 + (已创建数 × 40)
配置快捷键[索引].发送数据[已创建数 + 1].左边 ＝ 250
配置快捷键[索引].发送数据[已创建数 + 1].标题 ＝ “发送数据” ＋ 到文本(索引) ＋ "" ＋ 到文本(已创建数 + 1)
配置快捷键[索引].发送数据[已创建数 + 1].标记 ＝ 到文本(索引)
配置快捷键[索引].快捷键[已创建数 + 1].置父窗口 (设置配置分支[索引].分组框[1])
配置快捷键[索引].快捷键[已创建数 + 1].可视 ＝ 真
配置快捷键[索引].快捷键[已创建数 + 1].顶边 ＝ 15 + (已创建数 × 40)
配置快捷键[索引].快捷键[已创建数 + 1].左边 ＝ 20
配置快捷键[索引].快捷键[已创建数 + 1].内容 ＝ “快捷键” ＋ 到文本(索引) ＋ "_" ＋ 到文本(已创建数 + 1)
配置快捷键[索引].快捷键[已创建数 + 1].标记 ＝ 到文本(索引)

Ruang

参考一下