首先计算一下Form1中的事件完成需要的总步骤(总时间),初始化进度条
在Form1的事件中,根据完成的进度,设置Form2中的进度条的位置,再用form2.Refresh刷新一下form2
在Form1的事件中,根据完成的进度,设置Form2中的进度条的位置,再用form2.Refresh刷新一下form2
解决方案 »
- sendmssage LVM_DELETEITEM为什么一次删除两条记录
- DBGRID有没有办法在不连接数据库的情况下,对其进行记录的添加。
- 为何重新读入流会报地址错误??急!
- 关于连接数据库异常
- 诚聘高手加盟,高级软件工程师基本月薪4500~7000+绩效奖金,软件工程师和测试工程师基本月薪3000~4500+绩效奖金
- 简单问题
- 请问那里有DELPHI编写openGL程序的资料?
- 在delphi中怎么设置SQL EXPLORER的参数连接ORACLE??
- 请问,如何在程序里用查询或别的办法得到一个表的所有字段名称及其属性?
- 一个关于数值转换的简单问题,谁有空请给个函数先。
- 想要找一本好书
- 如何将表中某一字段的值加入到一下下拉表中?
adoquery1.sql.text := 'select ....'
adoquery1.open;
状态条.max:=adoquery1.count;
状态条.position := 0;
adoquery1.first;
while not adoquery1.eof do
begin
application.handlemessage;
adoquery2.spl.text := 'insert into 表 values(adoquery1.fields[].asting......)';
adoquery2.execel;
adoquery1.next;
状态条.opsition := 状态条.opsition +1;
end;