首先计算一下Form1中的事件完成需要的总步骤(总时间),初始化进度条
在Form1的事件中,根据完成的进度,设置Form2中的进度条的位置,再用form2.Refresh刷新一下form2
在Form1的事件中,根据完成的进度,设置Form2中的进度条的位置,再用form2.Refresh刷新一下form2
解决方案 »
- 基于Delphi的OpenGl和DX编程,有哪些好书?
- 如何使按下Enter(回车)键后使焦点自动跳到窗体上的下一个控件上?
- 一個查詢問題搞不定了,求救!
- 老父无钱供儿上大学服毒自杀 高额学费逼死农民!
- 用hook拦截键盘输入,怎么判断左右shift,ctrl?
- 代码窗口里面的字体可不可以调大一点?
- 有100条记录我想要得到10-20的记录。SQL语句是什么??
- 这是什么错误码提示 ??unsuccessful metadata update a node name is not permitted in a table with xternal file definition unassig
- 没分了,还有3个小问题。
- Delphi中的事件问题...
- 想要找一本好书
- 如何将表中某一字段的值加入到一下下拉表中?
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;