thay đổi màu sắc của văn bản listviewitem trong delphi

Question

Tôi đang cố gắng thay đổi màu văn bản trong listviewitem của tôi cho một đối tượng văn bản. Tôi có nhiều đối tượng văn bản trong listviewitem. Tôi đang sử dụng mã dưới đây

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 

Các lỗi khi gỡ lỗi nói đối tượng khó tiếp cận nhưng tôi không có vấn đề thay đổi màu sắc khi tôi làm dưới đây

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

bất kỳ ý tưởng?

Answer 1

Tìm thấy câu trả lời:

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