如何让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;