状态条中如何显示图标？

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Left := 2;
  Image1.Top := 1;
  Image1.Parent := StatusBar1;
end;

Answer 1

var
  Form1: TForm1;  Map:TImage;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin
  Map:=TImage.Create(Self) ;
  Map.Picture.LoadFromFile('c:\a.bmp');
  map.Left :=0;
  map.top :=10;
  map.Width :=30;
  map.Height :=30;
  Map.parent:=StatusBar1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  map.free;
end;end.

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
    ImageList1.Draw(StatusBar1.Canvas,1,1,0);
end;

Answer 3

设置Image.parent:=StatusBar1,将状态格的CustomDraw设为True,然后在状态条的Draw事件中设置Image的位置。

Answer 4

谢谢，但是我有很多个Panels，想把图标放到其他的Panels里面，怎么写？

Answer 5

谢谢，但是我有很多个Panels，想把图标放到其他的Panels里面，怎么写？

Answer 6

谢谢，不过我的状态条有几个Panels，我想把图标放到后面的Panels里面，怎么写呢？

Answer 7

1、在form上放一个Image1,并加入图片;2、把你要放的图标的panels的style改为psOwnerDraw;
    如StatusBar1.Panels[1].style:=psOwnerDraw;  3、定义一个StatusDrawRect:TRect;的全局变量4、在StatusBar1的ondrawpanel事件加入
    StatusDrawRect:=rect;5、在button1的click事件加入
with  image1 do
begin
    top:=StatusDrawRect.top;
    left:=StatusDrawRect.left;
    width:=StatusDrawRect.bottom-StatusDrawRect.top;
    height:=StatusDrawRect.bottom-StatusDrawRect.top;
    visible:=true;
    Parent := StatusBar1;
end;
不清楚，我这有DEMO