TreeList为5以下的版本,在CustomDrawCell处理,5版本,在OnCustomDrawDataCell处理。代码如下:procedure TForm1.cxtl1CustomDrawCell(Sender: TObject; ACanvas: TcxCanvas; AViewInfo: TcxTreeListEditCellViewInfo; var ADone: Boolean);var sValue : string;begin sValue := AViewInfo.Node.Texts[cxcol1.ItemIndex]; if sValue = '未开始' then ACanvas.Font.Color := clRed else if sValue = '进行中' then ACanvas.Font.Color := clGreen else if sValue = '已完成' then ACanvas.Font.Color := clBlack;end;