如何调用.icon图标

hittyecho 2004-08-31 10:34:47
哪位高手能帮帮忙,知道如何在listview中去调用.icon图标,拜托拜托!!!!
...全文
116 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
linzhengqun 2004-08-31
  • 打赏
  • 举报
回复
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;
kaguo 2004-08-31
  • 打赏
  • 举报
回复
补充下
ImageList1:TImageList
ListView1.LargeImages :=ImageList1;
kaguo 2004-08-31
  • 打赏
  • 举报
回复
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;

16,747

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧