Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1423981
  • 博文数量: 314
  • 博客积分: 1860
  • 博客等级: 上尉
  • 技术积分: 3473
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-07 08:51
个人简介

偶尔有空上来看看

文章分类

全部博文(314)

文章存档

2021年(46)

2020年(115)

2019年(11)

2018年(9)

2017年(9)

2016年(17)

2015年(7)

2014年(4)

2013年(1)

2012年(11)

2011年(27)

2010年(35)

2009年(11)

2008年(11)

分类:

2009-12-11 10:11:25

Delphi 7
 
uses commctrl;
 
 
//一般放到formshow里面
var
  r: TRect;
begin
  sbMain.ControlStyle := sbMain.ControlStyle + [csAcceptsControls];
  sbMain.Perform(SB_GETRECT, 1, Integer(@R));
  pbProgress.Parent := sbMain;
  pbProgress.Top    := r.Top;
  pbProgress.Left   := r.Left;
  pbProgress.Width  := r.Right - r.Left;
  pbProgress.Height := r.Bottom - r.Top;
  pbProgress.Visible:= false;   //使用时要显示
end;
阅读(1085) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~