如何改变listview一行的颜色(在线等待)

Question

如何改变listview一行的颜色

Answer 1

procedure TMainForm.ListView1CustomDrawItem(Sender: TCustomListView; 
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
  if Item.Caption = 'aaa' then   //加上条件
    (Sender as TListView).Canvas.Font.Color := clMaroon 
  else  
    (Sender as TListView).Canvas.Font.Color := clRed; 
end; 

Answer 2

楼上只适用用于Delphi6以上版 否则会内存泄露