Delphi中状态栏显示进度条
procedure TAddProgressbarFrm.AddProgressToStatus;var i,Count,StatusPanelWidth: Integer;begin FProgress := TProgressbar.Create(AddProgressbarFrm); {定义进程条的最大值} Count := 3000; StatusPanelWidth := Status.Panels.Items[2].Width; {改变进度条宽度} Status.Panels.Items[2].Width := 150; Status.Repaint; with FProgress do begin Top := FStatusDrawRect.Top; Left := FStatusDrawRect.Left; {设定进程条的宽度和高度} Width := FStatusDrawRect.Right - FStatusDrawRect.Left; Height := FStatusDrawRect.Bottom - FStatusDrawRect.Top; Visible := True; try Parent := Status; {进程条的最小和最大值} Min := 0; Max := Count; Step := 1; for i := 1 to Count do Stepit; MessageBox(Handle,#13+‘现在，进程条将要从内存中被释放‘+#13+#13 +‘ [刀剑如梦软件创作室]‘,‘信息提示‘,MB_OK+MB_ICONINFORMATION); finally {从内存中释放进程条} Free; end; end; {恢复状态条的宽度} Status.Panels.Items[2].Width := StatusPanelWidth;end;
文件下载
资源详情
[{"title":"（ 8 个子文件 191KB ） Delphi中状态栏显示进度条","children":[{"title":"AddProgressbar","children":[{"title":"AddProgressbar.dpr <span style='color:#111;'> 302B </span>","children":null,"spread":false},{"title":"UAddProgressbar.dfm <span style='color:#111;'> 980B </span>","children":null,"spread":false},{"title":"UAddProgressbar.dcu <span style='color:#111;'> 5.38KB </span>","children":null,"spread":false},{"title":"AddProgressbar.res <span style='color:#111;'> 876B </span>","children":null,"spread":false},{"title":"UAddProgressbar.pas <span style='color:#111;'> 2.51KB </span>","children":null,"spread":false},{"title":"AddProgressbar.txt <span style='color:#111;'> 2.50KB </span>","children":null,"spread":false},{"title":"AddProgressbar.exe <span style='color:#111;'> 380.00KB </span>","children":null,"spread":false},{"title":"deltemp.bat <span style='color:#111;'> 79B </span>","children":null,"spread":false}],"spread":true}],"spread":true}]
评论信息
其他资源
- 初中信息技术考试系统100套绝对可以用part5
- DCT、DWT数字水印技术-matlab代码
- COP2000模拟器
- USB-SERIAL CH341 Drivers
- dht.h库文件 温湿度传感器
- c++程序设计第四版课件（郑莉等著）[含ppt和源代码]
- CDH性能调优精髓
- STM32F3与F4系列Cortex M4内核编程手册.pdf
- jxl.jar完整包
- 软件设计师.xmind
- 我理解的阿里无线前端“架构”
- 量产Gerber文件生成流程说明书.doc
- Linux课件.pdf
- 可设置主页的Android浏览器(修正版)
- verdaccio的配置文件config.yaml
- chrome42.0.2311.152
- 相关系数影像匹配
- 微服务项目(学成在线)资料.zip
- HCNP课件.rar
免责申明
【只为小站】的资源来自网友分享，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论 【只为小站】 经营者是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明
本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二条之规定，若资源存在侵权或相关问题请联系本站客服人员，zhiweidada#qq.com，请把#换成@，本站将给予最大的支持与配合，做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明