小问题，来者有分

[wolf2005]

StatusBar上如何加一个小图标？

[hhzqf1980]

比较简单的方法.
procedure TForm1.Button1Click(Sender: TObject);
var Map:TImage;
begin
Map:=TImage.Create(Self) ;
Map.Picture.LoadFromFile('c:\Chem16.bmp');
Map.parent:=StatusBar1;

end

[hhzqf1980]

在StatusBar的OnDrawPanel事件中调用下面的函数（需要放置Bitmap的Panel要
设为OwnerDraw)
procedure TfrmMain.DisplayAppMessage;
var
ARect: TRect;
begin
with stbSepc do
begin
ARect.Left := ClientRect.Left + Panels[0].Width + 10;
ARect.Top := 2;
ARect.Bottom := 20;
ARect.Right := ARect.Left + Panels[1].Width - 10;
Canvas.FillRect(ARect);

imglstSepc.Draw(Canvas, ARect.Left, ARect.Top, 6);
end;
end;

[lovedelphi2004]

能是能，好像有这样的控件！！你自己再找找吧！！！

[joy19]

呵呵，上面的朋友说得很好了！接分！