如何在Delphi中的StatusBar上添加图标

你可以在StatusBar中添加一个Panel，并将Panel的Style设置为psOwnerDraw。然后在下面的事件中添加代码：
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
StatusBar1.Canvas.Draw(0, 0, Image1.Picture.Graphic);
end;
另外，你可以试一下TFriendlyStatusBar控件(http://jagor.srce.hr/~iazic/)，这个控件可以把任何控件作为子控件放在StatusBar上，很好用。

• 打印文档
• 推荐好友
• 
• 返回顶部
• 增大字体
• 减少字体

• 上一篇文章：国务院通知：5月19日至21日为全国哀悼日
• 下一篇文章：如何用DELPHI获得文件的版本号