imageList里面有多个ico文件,如何把动态把imageList里面的ico资源保存成一个独立的文件,另外下次怎么把这个资源load回imageList里面去,给2个代码段,一个是保存文件的代码,一个是读取这个资源文件到imageList的代码小弟。
解决方案 »
- Delphi 2006-10专家榜
- 超级郁闷问题!都进来看看,不管你现在用不用得到,一定有帮助。。。请求版主帮忙置顶!!!
- 急救!Delphi有没有一个函数能将Double型转换成String型的?
- 今日,在此散分,过去了事,今日补上,望海函(星期一,结贴)
- 如何将Unicode字符串插入到Orcale9i数据库表里?
- 有没有这样的软件!将2000下的软件(非XP界面)模拟成XP界面?????
- 如何判断'*'是否在一字符串str1中出现两次?
- 一个Active X控件(条码打印)barcod的打印方法?
- !!!!!急急!!!硬盘分区!!!急急!!!!!
- 在祖先Form中用ToolBar做了類似DBNavigator按鈕,要怎樣讓后代Form不要在ToolBar的按鈕Click事件中輸入Post,Edit等命令。
- 鼠标离开按钮的触发事件是什么?
- HT诞辰纪念日快乐!
procedure TForm1.Button1Click(Sender: TObject);
var
i:ticon;
begin
i:=ticon.Create;
ImageList1.GetIcon(0,i);
i.SaveToFile('e:\temp\t.ico');
i.Free;
end;
读回
procedure TForm1.Button2Click(Sender: TObject);
var
i:ticon;
begin
i:=ticon.Create;
i.LoadFromFile('e:\temp\t.ico');
ImageList1.InsertIcon(3,i);
i.free;
end;
var
b: TbitMap;
begin
b := TbitMap.Create;
try
b.Handle := ImageList1.GetImageBitmap;
b.SaveToFile('图标集合.bmp');
finally
b.Free;
end;
end;procedure TForm1.LoadFromFileClick(Sender: TObject);//读取
var
b: TbitMap;
begin
b := TBitMap.Create;
try
b.LoadFromFile('图标集合.bmp');
ImageList1.Add(b,nil)
finally
b.Free;
end;
end;这是我刚刚写的。是将ImageList中的所有Ico全部保存到一个bmp文件中,该文件可用来加载全部的Ico资源。不知道是否达到你的要求:)