ListView里，根把某列的值，修改多行背景色。

假设我们从数据库中读取出一批数，同时使用了 order by 按某一列排序，希望，显示出来的内容也按这个字段组成一组，我们知道在.net里，listview控件可以实现 Group功能，在Delphi里要实现相同的功能，那当然也可以，做法上可能麻烦一些，不过我们可以绕开，用其它的办法，目的是实现分组。 在窗体上放一个button，一个listview. 定义类型 Type TDepartList=Record Name:String; Color:TColor; end; 全局变量 ，过程 private last:String; lastColor:TColor; ColorArray:Array of TDepartList; procedure add(s:string); Function GetRandomColor():TColor; Function CheckExist(s:STring):integer; 具体操作 procedure TForm1.add(s: string); var i:integer; item:TlistItem; begin for i:=0 to 10 do begin item:=ListView1.Items.Add; item.Caption:=IntToStr(i+1); item.SubItems.Add('姓名'); item.SubItems.Add(s); item.SubItems.Add('职务'); item.SubItems.Add('职称'); item.SubItems.Add('123'); end; end; function TForm1.CheckExist(s:STring): integer; var i:integer; begin Result:=-1; for i:=Low(ColorArray) to High(ColorArray) do begin if ColorArray[i].Name=s then begin Result:=i; break; end; end; end; function TForm1.GetRandomColor: TColor; begin Randomize; Result:=RGB(RandomRange(0,255),RandomRange(0,255),RandomRange(0,255)); end; procedure TForm1.Button1Click(Sender: TObject); begin add('部门'); add('部门1'); add('部门2'); end; procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var i:integer; begin if (Item.SubItems.Strings[1]<>Last) then//防止重画动作 begin Last:=Item.SubItems.Strings[1]; lastColor:=GetRandomColor; i:=CheckExist(last); if i=-1 then//填充ColorArray begin i:=High(ColorArray)+2; SetLength(ColorArray,i); ColorArray[i-1].Name:=last; ColorArray[i-1].Color:=lastColor; end else begin lastColor:=ColorArray[i].Color; end; end; with ListView1.Canvas do begin Brush.Color:=lastColor; Font.Color:= clWhite; end; end; 这里要设置一个listview ownerdraw为false;