易语言组件创建复制与销毁

用复制窗口组件创建了一堆单选框,但是单选框的内容和个数是会变动的,需要先销毁之前创建的单选框才能复制出新的单选框。

.子程序 _增加一组_被单击
.局部变量 数量, 整数型
.局部变量 编辑框1组件, 编辑框
.局部变量 标签1组件, 标签
.局部变量 编辑框2组件, 编辑框
.局部变量 标签2组件, 标签

加入成员 (编辑框1数组, 编辑框1组件)
加入成员 (标签1数组, 标签1组件)
加入成员 (编辑框2数组, 编辑框2组件)
加入成员 (标签2数组, 标签2组件)
数量 ＝ 取数组成员数 (编辑框1数组)
复制窗口组件 (编辑框1, 编辑框1数组 [数量])
复制窗口组件 (编辑框2, 编辑框2数组 [数量])
复制窗口组件 (标签1, 标签1数组 [数量])
复制窗口组件 (标签2, 标签2数组 [数量])
标签1数组 [数量].可视 ＝ 真
标签1数组 [数量].标题 ＝ “图片地址” ＋ 到文本 (数量 ＋ 1)
标签1数组 [数量].顶边 ＝ 标签1.顶边 ＋ 标签1数组 [数量].高度 × 2 ÷ 1.5 × 数量
编辑框1数组 [数量].可视 ＝ 真
编辑框1数组 [数量].顶边 ＝ 编辑框1.顶边 ＋ 编辑框1数组 [数量].高度 × 2 ÷ 1.5 × 数量
标签2数组 [数量].可视 ＝ 真
标签2数组 [数量].顶边 ＝ 标签2.顶边 ＋ 标签2数组 [数量].高度 × 2 ÷ 1.5 × 数量
编辑框2数组 [数量].可视 ＝ 真
编辑框2数组 [数量].顶边 ＝ 编辑框2.顶边 ＋ 编辑框2数组 [数量].高度 × 2 ÷ 1.5 × 数量
增加一组.顶边 ＝ 增加一组.顶边 ＋ 32
删除一组.顶边 ＝ 删除一组.顶边 ＋ 32