怎么让ImageList动态地从一个目录中调入图片，而不是在开发的时候设置好(100分)

怎么让ImageList动态地从一个目录中调入图片，而不是在开发的时候设置好。
我调入以后，什么都没有，不知道是不是哪个东西要设置，
请大家帮忙。

搜索!
-----------------------

问题: 在Delphi中动态添加到ImageList图片语法是什么？在线等待! ( 积分: 30 )
分类: 数据库-文件型

来自: meet, 时间: 2003-06-21 11:34:00, ID: 1970340
在Delphi中动态添加到ImageList图片语法是什么？

来自: JamesBond_L, 时间: 2003-06-21 11:37:00, ID: 1970345
var
ImageList : TImageList;
begin
...
ImageList := TImageList.Create(Self);
...
endddd;

来自: meet, 时间: 2003-06-21 11:48:00, ID: 1970365
老兄我不是这个意思！
　　我的意思是怎么用代码响ImageList控件中添加图片的语法是什么？因为图片路径我都放在表中，想用表中的路径得到图片！
不是动态生成ImageList对象！

来自: realLearning, 时间: 2003-06-21 12:22:00, ID: 1970437
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('F:/Resource/15-15.bmp/Arrow.0.bmp');
ImageList1.Add(Bitmap,Bitmap);
ImageList1.GetBitmap(0,BitBtn1.Glyph);
finally
Bitmap.Free;
end;
end;

来自: zswenyun, 时间: 2003-06-21 12:36:00, ID: 1970453
加入ico如下：
var
Ico: TIcon;
Tpath:string;
begin
Tpath:=filepath;//ico文件路径与文件名
Ico := TIcon.Create;
try
Ico.LoadFromFile(filepath);
ImageList.InsertIcon(i, Ico);//i为插入位置
end;
finally
Ico.Free;
end;
end;


来自: meet, 时间: 2003-07-02 15:29:00, ID: 1997092
多人接受答案了。

搞定，非常感谢！

给分