如何动态改变listview里面的图标 我写了个测试程序:用listview以图标显示数据库a(id,name,state)的没个数据的信息,调用了一个imagelist控件。我想listview里面的图表imageindex根据表状态state的信息而不同!怎么样动态改变显示的图标。如何让listview显示大些的完整图标。谢谢各位回复!感激不尽! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 把要显示的图标放在imagelist中,根据state状态选择,把imagelist中的图标标号副给listview里面的图表imageindex。把imagelist的width和heigth改为你需要的大小 procedure TFrmFlowActSel.ListViewData(Sender: TObject; Item: TListItem);var i: integer;begin for i := 0 to FrmFlowMain.imagelist.Count-1 do begin if Item.Index = i then begin Item.Caption := inttostr(i); Item.ImageIndex := i;//** end; end;end; imagelist下没有item属性,而且listview下面也不能直接用item 上面程序你是否测试过? 如何让Edit1或者DBEdit1的内容竖着显示? 怎样动态清除在Form上动态生成的标签 如何解决ado方式访问负整型数的问题? 请问在那儿能得到消息的相关参数设定值,参与有分! 如何用DELPHI取出SQL SERVER 中存储的JPG文件,在线等. com+高手,拜托解答小生疑惑。(不懂者切勿进入) 谁有五笔编码(100)分 高分求InstallShield6.0以上的中文安装包?(承诺加分到100分) 一个关于delphi使用ado的问题! UNIDAC VS FIREDAC table.findnearest相当于什么样的SQL语句? 请小5接分!
把imagelist的width和heigth改为你需要的大小
var
i: integer;
begin
for i := 0 to FrmFlowMain.imagelist.Count-1 do
begin
if Item.Index = i then
begin
Item.Caption := inttostr(i);
Item.ImageIndex := i;//**
end;
end;
end;