如何在StatusBar上添加图标

在StatusBar中添加一个Panel，并将Panel的Style设置为psOwnerDraw。然后在 
下面的事件中添加代码： 

procedureTForm1.StatusBar1DrawPanel(StatusBar:TStatusBar; 
Panel:TStatusPanel;constRect:TRect); 

begin 
StatusBar1.Canvas.Draw(0,0,Image1.Picture.Graphic); 
end; 



另外，你可以试一下TFriendlyStatusBar控件(http://jagor.srce.hr/~iazic/)， 
这个控件可以把任何控件作为子控件放在StatusBar上，很好用