用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;

文章來源于領測軟件測試網 http://www.kjueaiud.com/