重画咯。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; 给你个例子,你去试试看
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货