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

领测软件测试网

　　1.把ProgressBar的Parent属性设为StatusBar。

　　2.把StatusBar的第二块面板的Style属性改成“psOwnerDraw”，这里是解决问题的关键，当Style被设为psOwnerDraw之后，面板上就可以被放制其它的组件，实现的方法是在OnDrawPanel事件中编写代码，默认情况是被设为psText，这样就只能显示文本，就像第一块面板那样。

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

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

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

文章来源于领测软件测试网 https://www.ltesting.net/