如何让Listview（vsReport）选中的一行字体变色或底色改变

如何让Listview（vsReport）选中的一行字体变色或底色改变？

把属性HideSelection设为false就可以得到你的想要的效果!

奇偶颜色不同
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if odd(item.Index) then //奇偶判断
  //if item.Index = ListView1.ItemIndex then
    item.ListView.Canvas.Brush.Color := RGB(150, 150, 150)
  else
    item.ListView.Canvas.Brush.Color := RGB(200, 200, 200);
end;