如何调用.icon图标

[hittyecho]

哪位高手能帮帮忙，知道如何在listview中去调用.icon图标，拜托拜托！！！！

[kaguo]

procedure TForm1.Button2Click(Sender: TObject);
var ico:Ticon;
begin
ico:=Ticon.Create;
ico.LoadFromFile('d:\1.ico');
ImageList1.AddIcon(ico);
ListView1.Items[0].ImageIndex :=0;
ico.Free ;
end;

[kaguo]

补充下
ImageList1:TImageList
ListView1.LargeImages :=ImageList1;

[linzhengqun]

listview中的图标是引用ImageList中的，
所以你要根据ListView中的某个项的图像索引，调用与之相联系的ImageList的方法来得到：
大概如下，参考：
procedure TForm1.Button1Click(Sender: TObject);
var icon:TICON;
begin
icon:=Ticon.Create;
try
//icon取得Listview1中被选中的项的图标
ImageList1.GetIcon(Listview1.Selected.ImageIndex,icon);
//Image1把Icon画出来
Image1.Canvas.Draw(0,0,icon);
finally
icon.Free;
end;
end;