在 listview 的 OncustomDrawSubitem 事件中添加如下代码,即可实现listview的隔行颜色 procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean); begin case SubItem of 2: listview1.Canvas.Font.Color := clRed; else listview1.Canvas.Font.Color := clBlack; end; end;