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

发表于:2008-05-21来源:作者:点击数: 标签:DELPHI状态Delphi进程delphi
关键字:delphi
上面的步骤在实际编写代码时是这样实现的:

clearcase/" target="_blank" >cccccc width="90%" align=center bgColor=#e1e1e1 border=1>
1.//首先在FormCreate事件中编写代码
procedure TForm1.FormCreate(Sender: TObject);
var
 ProgressBarStyle: integer;
begin
 //将状态栏的第二块面板设为的自绘(即psOwnerDraw)
 StatusBar1.Panels[1].Style := psOwnerDraw;

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

原文转自:http://www.ltesting.net