statusbar上如何加一个图标!

Question

1，有两种方法
A，
先设置要显示图标的StatusBar1的Panel的Style属性为sOwnerDraw;
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  StatusBar.Canvas.Draw(2, 6, Image1.Picture.Graphic);
end;
B，
var 
  Img: TImage;
begin
  Img:=TImage.Create(Self) ;
  Img.Picture.LoadFromFile('c:\snow.bmp');
  Img.Left := 2;
  Img.Top := 6;
  Img.parent := StatusBar1;
end;
2,滚动效果自己再更改一下，应该很容易实现
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  StatusBar.Canvas.TextOut(2, 3, '~~~~~');
end;

Answer 1

1，在我这边可以，上面的代码我自己有测试过，你根据实际情况更改一下位置StatusBar.Canvas.Draw(X, Y, Image1.Picture.Graphic);
2，用Label也不会麻烦，先设置它的transpant属性为True,然后控制它的Left属性就可以了