导读 大家好,乐天来为大家解答以下的问题，关于listview和listwidget这个很多人还不知道,现在让我们一起来看看吧！1、procedure TForm1 extract
大家好,乐天来为大家解答以下的问题，关于listview和listwidget这个很多人还不知道,现在让我们一起来看看吧！
1、procedure TForm1.extract(filename:string);varbegin i:=-1; count:=extracticon(hinstance,pchar(filename),i); for i:=0 to count-1 do我用了膳绫擎的代码后,listview的每一个项目标搁笔都是小搁笔,不会是32*32的,这怎么回事 begin SetLength(ico,i+1); ico[i]:=TIcon.Create;//留意,ico是全局动态数组变量 imagelist1.AddIcon(ico[i]); listview1.Items.add; listview1.Items[i].Caption:=Extractfilename(filename); i,count:integer; listview1.Items[i].ImageIndex:=i; end;end; ico[i].Handle:=extracticon(hinstance,pchar(filename),i);注:listview1.LargeImagss:=ImageList1;to softsprite:不好意思,你如今还不克不及获得20分;to yinfudan:我很穷;。
本文分享完毕，希望对大家有所帮助。
标签：
免责声明：本文由用户上传，如有侵权请联系删除！