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/