易语言组件复制及事件处理源码

动态创建组件以及组件的事件处理，去除了手动创建重复类型组件的烦恼

@立青

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 控件组, 控件组, , "0"

.子程序 _按钮_启动_被单击
.局部变量 来源按钮, 按钮
.局部变量 选项, 整数型
.局部变量 来源索引, 整数型

来源按钮 ＝ 取事件组件 ()
来源索引 ＝ 到整数 (来源按钮.标记)
.判断开始 (控件组 [来源索引].单选框组 [1].选中)
    选项 ＝ 1
.判断 (控件组 [来源索引].单选框组 [2].选中)
    选项 ＝ 2
.判断 (控件组 [来源索引].单选框组 [3].选中)
    选项 ＝ 3
.默认
    选项 ＝ 4
.判断结束
信息框 (取文本 (“来自第%d个控件组,%s”, 来源索引, 多项选择 (选项, “选择了第1个选项”, “选择了第2个选项”, “选择了第3个选项”, “没有选中”)), 0, “已选择选项”, _启动窗口)

.子程序 _按钮1_被单击
.局部变量 控件组数, 整数型
.局部变量 i, 整数型
.局部变量 控件顶边, 整数型

控件组数 ＝ 到整数 (编辑框1.内容)
重定义数组 (控件组, 假, 控件组数)
.计次循环首 (控件组数, i)
    控件顶边 ＝ 控件顶边 ＋ 60

    ' 处理标签
    复制窗口组件 (标签1, 控件组 <i>.标签)
    控件组 <i>.标签.标题 ＝ “标签” ＋ 到文本 (i)
    控件组 <i>.标签.顶边 ＝ 控件顶边
    控件组 <i>.标签.可视 ＝ 真

    ' 处理选项组
    复制窗口组件 (分组框1, 控件组 <i>.分组框)
    控件组 <i>.分组框.顶边 ＝ 控件顶边 － 16
    控件组 <i>.分组框.可视 ＝ 真
    复制窗口组件 (单选框_选项1, 控件组 <i>.单选框组 [1])
    复制窗口组件 (单选框_选项2, 控件组 <i>.单选框组 [2])
    复制窗口组件 (单选框_选项3, 控件组 <i>.单选框组 [3])
    ' 设置单选框父窗口
    控件组 <i>.单选框组 [1].置父窗口 (控件组 <i>.分组框)
    控件组 <i>.单选框组 [2].置父窗口 (控件组 <i>.分组框)
    控件组 <i>.单选框组 [3].置父窗口 (控件组 <i>.分组框)

    控件组 <i>.单选框组 [1].可视 ＝ 真
    控件组 <i>.单选框组 [2].可视 ＝ 真
    控件组 <i>.单选框组 [3].可视 ＝ 真

    ' 处理按钮
    复制窗口组件 (按钮_启动, 控件组 <i>.按钮)
    控件组 <i>.按钮.标记 ＝ 到文本 (i)
    控件组 <i>.按钮.顶边 ＝ 控件顶边 － 6
    控件组 <i>.按钮.可视 ＝ 真
.计次循环尾 ()