在delphi中更改listviewitem文本的颜色

发布时间：2020-12-15 09:28:56 所属栏目：大数据来源：网络整理

导读：我正在尝试更改listviewitem中文本对象的文本颜色.我在listviewitem中有多个文本对象.我正在使用以下代码 Litem := ListView1.Items.Add;Litem.Data['ytde'] := currtostrf(ytde,ffCurrency,2);Litem.Data['ytdbe'] := currtostrf(ytdbe,2);Litem.Data['ytde

我正在尝试更改listviewitem中文本对象的文本颜色.我在listviewitem中有多个文本对象.我正在使用以下代码

Litem := ListView1.Items.Add;
Litem.Data['ytde'] := currtostrf(ytde,ffCurrency,2);
Litem.Data['ytdbe'] := currtostrf(ytdbe,2);
Litem.Data['ytdetotal'] := currtostrf(ytdetotal,2);
Litem.Objects.TextObject.TextColor :=  TAlphaColorRec.Green

调试时出现错误说无法访问的对象,但是当我执行以下操作时,我没有问题更改颜色

LItemheader.Purpose := TListItemPurpose.Header;
Litemheader.Objects.TextObject.TextColor := TAlphaColorRec.blue;

有任何想法吗？

解决方法

找到答案：

TListItemText(Litem.Objects.FindDrawable('ytde')).TextColor := TAlphaColorRec.Red;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!