以下是引用wp231957在2012-12-30 08:28:37的发言：

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin

  with StatusBar1.Canvas do
  begin
    //ush.Color := clRed;
    FillRect(Rect);
    //nt.Color := clYellow;
    ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,Panel.Index);
    //xtOut(Rect.left + 30, Rect.top + 2, 'Panel' + IntToStr(Panel.Index));
  end;

end;DELPHI7没你的ide那么先进
他的statusbar控件尚不能和imagelist控件绑定
所以只能采用自绘方式来实现（其实delphi的自绘功能是能实现好多好用的功能的）
我这里只是测试了图标文件.ico  其他图形文件 没有测试

以下是引用TonyDeng在2012-12-30 13:47:04的发言：

现成的东西太多，未必是好事啊，比如去DG，十多个摆在眼前，挑来挑去，往往挑到个不满意的。

以下是引用有容就大在2012-12-30 17:03:01的发言：

 
 
 
去DG?  
DG么子东西？