动态创建组件和事件访问实例

' 改变行数和列数即可创建行数x列数的按钮组件
行数 ＝ 3
列数 ＝ 3
组件横向间距 ＝ 2
组件纵向间距 ＝ 2
索引 ＝ 1
加入成员 (按钮组, 按钮1)
.计次循环首 (行数, i)
.计次循环首 (列数, j)
.如果真 (索引 ＝ 1)
索引 ＝ 索引 ＋ 1
到循环尾 ()
.如果真结束
复制窗口组件 (按钮1, 按钮)
加入成员 (按钮组, 按钮)
按钮组 [索引].标题 ＝ “按钮” ＋ 到文本 (索引)
按钮组 [索引].标记 ＝ 到文本 (索引)
按钮组 [索引].宽度 ＝ 按钮1.宽度
按钮组 [索引].高度 ＝ 按钮1.高度
按钮组 [索引].左边 ＝ 按钮1.左边 ＋ (j － 1) × (按钮1.宽度 ＋ 组件横向间距)
按钮组 [索引].顶边 ＝ 按钮1.顶边 ＋ (i － 1) × (按钮1.高度 ＋ 组件纵向间距)
按钮组 [索引].可视 ＝ 真
索引 ＝ 索引 ＋ 1
.计次循环尾 ()
.计次循环尾 ()