如何在StatusBar中添加Image图片？？？

Question

如何在StatusBar中添加Image图片？？？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[0].Style := psOwnerDraw;
end;procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  if Panel.Index = 0 then
  begin
    StatusBar.Canvas.FillRect(Rect);
    StatusBar.Canvas.Draw(Rect.Left+1,Rect.Top+1,Image1.Picture.Graphic);
  end;
end;