如:
我现在在TImagelist中添加了一组图片,我要根据传入的标识号取得图片的索引,此组图片如何添加????如何获取:
function GetImageIndex(strSign:string):integer;
var i : integer;
begin
for i:= 0 to ImageList1.count -1 do begin
??????????
end;
end;
我现在在TImagelist中添加了一组图片,我要根据传入的标识号取得图片的索引,此组图片如何添加????如何获取:
function GetImageIndex(strSign:string):integer;
var i : integer;
begin
for i:= 0 to ImageList1.count -1 do begin
??????????
end;
end;
解决方案 »
- 想不明白的错误,请各位前辈指点
- TTM_GETTOOLINFOA 如何获得 tooltips_class32 内容
- 急等:数据库访问冲突问题,请高手进来看看!
- 因ocean9b()给错了分,请fyje(云中仙)过来领分!(出于良心考虑,本人开帖送分)
- 初学者问.
- 遇到麻烦事了,C中的lpwstr怎么转回delphi中使用的定义变量?好像使用pchar取不回数据的
- 为什么我用clientdataset新增记录时汉字只有一半?
- 如何让帮助文件打开时定位
- 救命 用dbimage怎样显示格式为.jpg的图片
- 能吗??????
- 请问在Dephi中如何读写USB设备?
- [来者有分] 是不是高手都写自己的博客去了...
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(图片路径);
ImageList1.Add(Bitmap,Bitmap);
ImageList1.GetBitmap(0,BitBtn1.Glyph);
finally
Bitmap.Free;
end;
end;
比如说我在一个TListView添加了很多文件名,然后在TImageList里也添加了很多图片,
每个文件名对应一张图片显示出来,文件名和图片的顺序都是不固定的,如何根据文件
名来取图片呢?
不过一开始加的图标的顺序不能随便改动的
呵呵
用tstringlist完全可以满足你的要求的