我正在尝试更改文本对象的listviewitem中的文本颜色。我在listviewitem中有多个文本对象。我正在使用以下代码
Litem := ListView1.Items.Add;
Litem.Data['ytde'] := currtostrf(ytde,ffCurrency,2);
Litem.Data['ytdbe'] := currtostrf(ytdbe,ffCurrency,2);
Litem.Data['ytdetotal'] := currtostrf(ytdetotal,ffCurrency,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;