怎么在状态栏中加入图标？

Question

将StatusBar的SimplePanal设为False,双击StatusBar以在StatusBar中加入Panel将StatusBar中要显示图标的Panel的Style设为自绘,然后用一个ImageList装入图标,然后在StatusBar的DrawPanel事件如像下面这样写!procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;  Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar1.Canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect);
    Font.Color := clYellow;
    ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,Panel.Index);
    TextOut(Rect.left + 30, Rect.top + 2, 'Panel' + IntToStr(Panel.Index));
  end;
end;

Answer 1

呵呵,shell_notifyicon是Windows用来在任务栏的提示区加图标的,不是用来向状态栏加图标的!!