E4A对话框(进度、信息、颜色、日期、时间)

不可视组件对话框有方法：
设置进度对话框可取消；显示进度对话框；设置进度对话框信息；关闭进度对话框；显示进度对话框2；设置进度对话框进度；信息框；信息框2；信息框3；设置对话框语言类型；单选对话框；多选对话框；置输入框输入方式；输入框；颜色选择框；置日期选择框初始日期；显示日期选择框；置时间选择框初始时间；显示时间选择框。
这些方法使用起来很不方便，完全可以用对应的过程和函数代替。代码如下：
变量 计数 为 整数型
变量 按钮标志 为 整数型

事件 按钮_进度对话框.被单击()
显示进度对话框('请稍等……')
设置进度对话框信息('这是试验进度对话框')
设置进度对话框进度(0)
时钟1.时钟周期=1000
结束 事件
事件 时钟1.周期事件()
计数=计数+1
设置进度对话框信息(计数*10 & '％')
如果 计数>9 则