重画咯。procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  R: TRect;
begin  if Item.Index mod 2 = 0  then
    ListView1.Canvas.Brush.color := clAqua
  else
    ListView1.Canvas.Brush.color := clWhite;
  if cdsSelected in state then
    ListView1.Canvas.Brush.Color := clRed;
  R := Item.DisplayRect(drBounds);
  ListView1.Canvas.FillRect(R);
  ListView1.Canvas.TextOut(R.Left + 1, R.Top + 1, Item.Caption);
  DefaultDraw:= False;
end;  给你个例子,你去试试看