| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3284702
建立时间:2005年6月6日 |
| |
|
 [delpih编程]delphi 调用进度条窗体
软件技术
吕向阳 发表于 2009/6/29 6:38:21 |
| 先做一个窗体文件（FORM),在窗体中加入一个进度条件progressbar.然后是主程序中按如下方法调用先把调用进度条的窗体禁用：Form1.Enabled:=false; 然后调用进度条窗体，直接show，不要设为模式状态begin Enabled:=false; //此处禁用主窗体 try frmProgress:=TfrmProgress.Create(self); try frmProgress.Show; frmProgress.Update; for i:=0 to n do begin ... //你的事务处理代码 frmProgress.Progress.Positon:=frmProgress.Progress.Positon+1; //进度增加 Application.ProcessMessages; //此处别漏了，让系统处理进度条变化 end; finally FreeAndNil(frmProgress); end; finally Enabled:=true; end; end;还可参考以下两例一）：begin Enabled:=false; //此处禁用主窗体 try frmProgress:=TfrmProgress.Create(self); try frmProgress.Show; frmProgress.Update; for i:=0 to n do begin ... //你的事务处理代码 frmProgress.Progress.Positon:=frmProgress.Progress.Positon+1; //进度增加 Application.ProcessMessages; //此处别漏了，让系统处理进度条变化 end; finally FreeAndNil(frmProgress); end; finally Enabled:=true; end; end;二）：Delphi(Pascal) codeSelf.Enabled :=False ; //禁止窗体操作//初始化进度条initProgressBar(Fra_Preview1.Marcs.Count, '批量自动验收');for Index := 0 to Fra_Preview1.Marcs.Count - 1 do....try // 进度显示if ProgressStep() then //如果中途取消导入Break;......finallyFreeProgressStep(); //销毁进度窗体Self.Enabled :=True ;end; |
|
|