如何添加图片到imagelist?

janlon 2006-03-16 04:24:56

imagelist里面有两个图片,想在程序执行后,动态添加其他的图片到imagelist中,不知如何添加/

...全文

972 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

janlon 2006-03-29

打赏
举报

试了;用TStringList加载图片名称后,又不知如何将图片在listview中显示了,请指点!

mdclsoft 2006-03-28

打赏
举报

你动手试了吗,动手才是硬道理

janlon 2006-03-28

打赏
举报

如果用imagelist,导入的不是图片的话,就无法实现列表功能;现在想用TStringList,不知如何实现?

mdclsoft 2006-03-28

打赏
举报

Imgbmp:bitmap;
try
Imgbmp.LoadFromFile('.\pic\'+Name+'-正在执行_all.bmp');
ImageList.Clear;
ImageList.Width:=75;
ImageList.Height :=100;
ImageList.Add(Imgbmp, nil);
finally
Imgbmp.free;
end;

janlon 2006-03-28

打赏
举报

如果实现?

janezjtjdx 2006-03-21

打赏
举报

不能是jpg格式的图片

cuteant 2006-03-21

打赏
举报

如果是在执行区，就没有必要还用ImageList来存放吧？

如果不考虑加入以后图片可能被删除的情况，你直接将地址用个TStringList或者用数组来存放，需要显示的时候和TImageList一样访问里面的元素。

janlon 2006-03-20

打赏
举报

ehom 2006-03-17

打赏
举报

不要这么做，ImageList受到Windows本身限制太多，极易到有上限，造成系统资源不足的异常抛出

请自行设计存储图像序列的数据结构，这本身就没有什么难度

janlon 2006-03-17

打赏
举报

可以用对话框加入多个图片吗?

能不能是jpg格式的图片啊?

janlon 2006-03-17

打赏
举报

ehom(？！):

刚接触delphi,还不太熟练;有没有相关的例子,参考一下?

huaya1127 2006-03-16

打赏
举报

procedure LoadImageFromFile;
var
Bitmap:TbitMap;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\look.bmp');

ImageList1.Insert(1,Bitmap,Bitmap);
end;