在Delphi中如何使用VCL制作标题栏上的图标？

Question

我使用Delphi中的VCL控件上的ImageList这个控件，通过ADD加载.ico和.bmp可以添加图片，可是老是显示不出来，不知道到底错在哪里希望懂的人指点一下！是不通过代码的！例如TT浏览器上什么收藏夹按纽那个既有图片又有文字怎么做出来！希望给具体步骤！

Answer 1

不知所云，也许我的语言理解能力不行1、如果你是要要标题栏是图一个按钮，方法如下：
      http://www.delphibbs.com/delphibbs/dispq.asp?lid=5551662、如果你要做一个还图片的按钮，方法如下：
     var BMP:TBitmap
    begin
       BMP:=TBitmap.Create
      BMP.LoadFromFile(图片文件名);
      SpeedButton1.Glyph:=BMP;
      BMP.Free;

Answer 2

不知道你的源码是怎么写的.
var
    Picture:TPictrue;
begin
    Picture.LoadFromFile(FileName);
    If Pictrue.Graphic is TBitmap then
        ImageList.Add(Picture.Graphic,Picture.Graphic)
    else if Picture.Graphic is TIcon then
        ImageList.AddIcon(Picture,Graphic);
end;引用Picture.Bitmap时,如果Picture.Graphic不是TBitmap类型时,图像将被清空!
引用Picture.ICON,Picture.Cursor也是一样的.
请参考关于TPicture的源码!