怎样把进度条加入状态栏？---急！(20分)

我记得论坛里发过这样的贴子，可是找不着，给个链接也可以。或者告诉我怎么查找？
谢谢了！

这种东西就别费劲找了，把progress的parent设为statusbar,然后设置位置和长宽使之于statubar适应就行了

感谢这么多朋友的帮助，我试完再散分，分太少了，真是不好意思了。谢过大家！

留个email,我发给你个完整例子

bjaman@163.com，Thank you.

　　首先,在FROM中放置一个状态条控件Status。调节Status.Panels，在其中插入3个状态条嵌板。把第二个嵌板的参数Style设置成psOwnerDraw。这一点很重要，如果没有这样做，将永远无法显示文字以外的东西。然后在状态条的OnDrawPanel事件中插入一行StatusDrawRect:=rect;以记录参数Style设置成psOwnerDraw的嵌板的坐标。
　　第二步，在FROM的Private中申明一个TProgressBar类型的变量Progress。然后在一个菜单的消息响应过程中调用Create方法把它建立起来，再设定状态条为该进程条的父窗口，进而设定进程条的一些必要参数。例如：最大值、最小值、原点坐标、高度和宽度等。

　　最后编译一下该程序，你就会发现在状态条中被插入了一个运动着的进程条。
　　类似地，你还可以在状态条中插入其他可视控件，如：按键、位图和动画控件等等。
以下是范例程序：
type
TForm1 = class(TForm)//定义一个窗口类
Status: TStatusBar;
MainMenu1: TMainMenu;
file1: TMenuItem;
insertprocressbar1: TMenuItem;
N1: TMenuItem;
exit1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure StatusDrawPanel(StatusBar: TStatusBar; Panel:
TStatusPanel;const Rect: TRect);
procedure FormDestroy(Sender: TObject);
procedure exit1Click(Sender: TObject);

procedure insertprocressbar1Click(Sender: TObject);
private
colorindex : integer; BookOpen:Boolean;
ssbmp:Tbitmap; progress:TProgressbar;
StatusDrawRect:TRect; //记录要插入状态条特技的坐标范围
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
end;

procedure TForm1.StatusDrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
StatusDrawRect:=rect; //记录要实现状态条特技的坐标范围
end;

procedure TForm1.exit1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.insertprocressbar1Click(Sender: TObject);
var i,count:integer;
staPanleWidth:integer;
begin
progress:=TProgressbar.create(form1);
count:=3000; //进程条的最大值
staPanleWidth:=status.Panels.Items[2].width;
//由于进程条的很宽，所以需要改变状态条嵌板的宽度，这里先保存它的宽度。
status.Panels.Items[2].width:=150; // 改变宽度
status.repaint;
with progress do
begin
top:=StatusDrawRect.top;
left:=StatusDrawRect.left;
width:=StatusDrawRect.right-StatusDrawRect.left;
height:=StatusDrawRect.bottom-StatusDrawRect.top;

//设定进程条的宽度和高度
visible:=true;
try
Parent := status; //该进程条的拥有者为状态条status
Min := 0; Max := Count; //进程条的最大和最小值
Step := 1; //进程条的步长
for i := 1 to Count do
Stepit; // 累加进程条
ShowMessage('现在，进程条将要从内存中被释放');
finally
Free; //释放进程条
end; //try
end; //with
status.Panels.Items[2].width:=staPanleWidth; //恢复状态条嵌板的宽度
end; //begin

end.

style要设成psOwnerDraw，然后在TStatusBar的OnDrawPanel里画就可以了。

楼上已经回答了。[8D]

这是我程序中的一段，没问题啊
progress:=tprogressbar.Create(self);
statusbar1.Panels[1].Width:=statusbar1.Width-(statusbar1.Panels[1].Width+2);
with progress do
begin
Parent:=statusbar1;
Top:= StatusBar1.BorderWidth + 2;
Height:= StatusBar1.Height - (StatusBar1.BorderWidth + 2);
Width:= StatusBar1.Panels[1].Width + StatusBar1.BorderWidth - 2;
end;

发完了

See this:
StatusBar1.SimplePanel := False;
StatusBar1.Panels[1].Style := psOwnerDraw;
with ProgressBar1 do
begin
Parent := StatusBar1;
Left := StatusBar1.Panels[0].Width + 3;
Top := 2;
Width := StatusBar1.Panels[1].Width - 2;
Height := StatusBar1.ClientHeight - 2;
Visible := True;
end;

用lstClass里的fcStatusBar，添加Panel后可以在Component属性中直接指定要显示的控件，不用编代码的。

用不着那么复杂，就使用Windows.Setparent( Progress.Handle,StatusBar.Handle );不就行了吗？

按楼上 jerry529的设置
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
StatusBar1: TStatusBar;
procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
procedure Button1Click(Sender: TObject);
private
progressBar:TProgressBar;// 进度条组件
progressBarRect:TRect; // 进度条组件的尺
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
///psOwnerDraw;
progressBarRect:=Rect;
end;

procedure TForm1.Button1Click(Sender: TObject);
var// I为循环变量, StepCount为执行循环的总数目
I,StepCount : Integer;
begin//动态创建进度条组件progressBar
progressBar:=TProgressBar.Create(Form1);
StepCount:=10000; // 循环的总数目
with progressBar do
begin// 先确定进度条组件的尺寸和位置
Top:=ProgressBarRect.Top;
Left:=ProgressBarRect.Left;
Width:=ProgressBarRect.Right-ProgressBarRect.Left;
Height:=ProgressBarRect.Bottom-ProgressBarRect.Top;
Visible:=True; // 使进度条可见
try
Parent:=StatusBar1; // parent属性设置为状态栏组件
Min:=0;// 设定进度条的范围和步长
Max:=StepCount;
Step:=1;
for I:=1 to StepCount do
begin
Stepit;// 循环使进度显示条累加
end;
MessageDlg('演示操作已经完成!', mtInformation,[mbOK], 0);
finally
Free;// 最后释放进度条组件占用的资源
end;
end;
end;
end.

TVVMStatusbar 就实现了这个功能!

多人接受答案了。