如何将图标加入到状态栏的Statusbar1.Panels[1]中去?

Question

如何将图标加入到状态栏的Statusbar1.Panels[1]中去?

Answer 1

你可以在职Statusbar这个类上再生一个类啊，，自己加就可以了，

Answer 2

放置一个ImageList1控件，加入一个图标。
设置 Statusbar1.Panels[1].Style := psOwnerDraw;
在StatusBar1的OnDrawPanel事件中：
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  if Panel = Statusbar1.Panels[1] then
  with StatusBar1.Canvas do
    ImageList1.Draw(StatusBar1.Canvas, Rect.Left, Rect.Top, 0);
end;