您好,今日西西来为大家解答以上的问题。新闻实时快讯,实时快讯listview的用法相信很多小伙伴还不知道,现在让我们一起来看看吧!
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:我很穷;。
本文就为大家分享到这里,希望小伙伴们会喜欢。