可用分押宝游戏火热进行中...	专题改版：Java Web 专题

图标超简单问题(90分给一人)

楼主masterjames（三月街）2004-08-03 15:42:51 在 Delphi / VCL组件开发及应用提问

我有100个不同的图标要放到Treeview现在是一个一个加到IMAGELIST中(呜呜好累)有没有办法将IMAGELIST中的图标从文件中读出来,最好要要按循序问题点数：100、回复次数：9Top

1 楼masterjames（三月街）回复于 2004-08-03 15:45:20 得分 0

快来呀Top

2 楼l_xiaofeng（行到水窮處,坐看雲起時!）回复于 2004-08-03 15:47:43 得分 10

這個問題，不會，據我所知是不能，但是IMAGELIST支持多選啊！Top

3 楼jinjazz（近身剪）回复于 2004-08-03 15:49:30 得分 10

for i:=0 to 99 do
treeview1.items[i].imageindex:=i;
Top

4 楼masterjames（三月街）回复于 2004-08-03 15:56:10 得分 0

支持多选,没有用呀.IMAGELIST可以将图标存成一个BMP如何恢复这个BMP变成图标呢Top

5 楼weizi2000（秋风啊）回复于 2004-08-03 15:59:58 得分 10

不明白你想做什么，是从文件中加到ImageList中还是直接从文件中加到TreeView中呢Top

6 楼lianshaohua（永远深爱一个叫“...”的好女孩儿!）回复于 2004-08-03 16:01:17 得分 1

不会，顶一下，Top

7 楼masterjames（三月街）回复于 2004-08-03 16:12:32 得分 0

两种都可以
从文件中加到ImageList：
从文件中加到TreeView
只要简单就好Top

8 楼weizi2000（秋风啊）回复于 2004-08-03 16:28:34 得分 69

呵呵，你试试，只能第一种：
var
tsImg: TStrings;
srData: TSearchRec;
bt: TBitMap;
i: Integer;
begin
tsImg := TStringList.Create;
if FindFirst('D:\a\*.bmp', faAnyFile, srData) = 0 then
begin
repeat
tsImg.Append('D:\a\' + srData.Name);
until FindNext(srData) <> 0;
FindClose(srData);
end;
for i := 0 to tsImg.Count - 1 do
begin
bt := TBitMap.Create;
bt.LoadFromFile(tsImg[i]);
il.Add(bt, nil);
bt.Free;
end;
end;Top

9 楼masterjames（三月街）回复于 2004-08-03 16:35:47 得分 0

我自己解决了Top