用DELPHI在状态栏中显示进程条[2]

http://www.miiceic.org.cn 2007-10-16 9:40:55 中程在线浏览数：

关键字：delphi

上面的步骤在实际编写代码时是这样实现的：

1.//首先在FormCreate事件中编写代码
procedure TForm1.FormCreate(Sender: TObject);
var
　ProgressBarStyle: integer;
begin
　//将状态栏的第二块面板设为的自绘（即psOwnerDraw）
　StatusBar1.Panels[1].Style := psOwnerDraw;

　//将进程条放入状态栏
　ProgressBar1.Parent := StatusBar1;

　//去除状态栏的边框，这样就与状态栏溶为一体了
　ProgressBarStyle := GetWindowLong(ProgressBar1.Handle,GWL_EXSTYLE);
　ProgressBarStyle := ProgressBarStyle - WS_EX_STATICEDGE;
　SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE, ProgressBarStyle);
end;

2.//编写状态栏的自绘代码
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;Panel: TStatusPanel;const Rect: TRect);
begin
　//注意这里的Panels[1]指的就是第2块面板，因为默认是从0开始的
　if Panel = StatusBar.Panels[1] then
　　with ProgressBar1 do begin
　　　Top := Rect.Top;
　　　Left := Rect.Left;
　　　Width := Rect.Right - Rect.Left - 15;
　　　Height := Rect.Bottom - Rect.Top;
　　end;
　end;

　　关键问题解决之后，我们来一个小例子，这样就可以有一个全局的印象了，控件的摆放如（图3）所示，编写代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
ProgressBar1.Position := 0;
ProgressBar1.Max := 100;

for i := 0 to 100 do
begin
ProgressBar1.Position := i;
Sleep(25);
end;
end;

　　运行一下这个小程序，点击一下按钮，看到了吧，进程条在状态栏中动起来了。

来源：csai

水つ鱼

一沙一世界一花一天堂掌中握無……

凌花阁

网络编程技术、多媒体技术、PC应用技术

我爱研发网	中电华信	阿里西西	JAVA爱好者	北京英才网	全球大学查询网
中国人的网站导航	中国电脑论坛	信息产业部	新浪科技	搜狐IT	信息产业部电子教育与考试中心
IT世界网	软件项目交易网	中国软件交易网	国信培训网	亚远景科技	....[更多]