怎么在状态栏上，放上图片，进度条等控件？

Question

参看StatusBarEx原代码，好象只需要修改一个是否能包含的属性
但如果直接写在程序里，那么在设计阶段是不能放入控件了

Answer 1

首先,在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. 

Answer 2

我要看过StatusBarEx源码，难道只能在那时改它的属性，就没有其它方法来做了么？

Answer 3

哈哈，打错了，是我有看过StatusbarEx的源码。
还有，谢谢qiubolecn(来自差生市)　的解答