如何改变listview整行选中的颜色.(在线)

Question

原选中色为兰色,如何改变为其他颜色?

Answer 1

// 在CustomDrawItem里自绘即可procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var r: TRect;
begin
  if cdsSelected in State then begin
    r := Item.DisplayRect(drSelectBounds);
    with Sender.Canvas do
      try
        Brush.Color := clRed;// select color
        FillRect(r);
        TextOut(r.Left + 2, r.Top, Item.Caption);
        DefaultDraw := False;
      except
      end;
  end;
end;