用DELPHI在狀態欄中顯示進程條

領測軟件測試網

　//去除狀態欄的邊框，這樣就與狀態欄溶為一體了
　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;

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