如何在statusbar中嵌入进度条控件

Question

http://delphi.twart.com:7534/DELPHI/D32FREE/DFSSTATUSBAR.ZIPTDFSStatusBar是加强版TStatusBar构件，能够在其内放置其他构件，提供显示键盘上特殊键(CAPS Lock、NUM Lock、SCROLL Lock)的状态，并提供进度显示进度及目前时间日期等多项功能

Answer 1

好象要通过canvas将进度条绘上去三少 :o)

Answer 2

把StatusBar的StatusPanel的Style属性设为psOwnerDraw，然后写StatusBar的OnDrawPanel事件如下：
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
     ProgressBar1.Parent:=StatusBar;
     ProgressBar1.Left:=Rect.Left+100;
     ProgressBar1.Top:=Rect.Top+1;
     ProgressBar1.Width:=200;
     ProgressBar1.Height:=Rect.Bottom-Rect.Top-1;
end;