procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 if item.Checked  then
  Sender.Canvas.Brush.Color := clRed;
end;

引言: 谢谢pgdennis大大的提示,您的方法让我醍醐灌顶.我又偷学到一招< > 不好意思,是我没有把问题描述清楚,抱歉了< >.我希望实现的效果是:当用鼠标点击Checkbox时,产生和用鼠标点击Item时一样的效果,就是焦点被切换到该行上,使得整行都变成高亮的状态.就像CheckListBox一样,点击了前面的CheckBox后,焦点也会随着切换到后面,从而产生高亮状态. 在ListView中把焦点切换出去后,就不会有高亮了,不晓得可不可以实现CheckListBox那样,即使焦点切换出去了,也能高亮呢? 再请问一点:怎样检测到点击的是前面的Checkbox呢?我知道如果是点击Item,可以使用ListView::OnSelectItem()来单独检查到从而对其处理.而使用ListView::OnChange()是不管鼠标,键盘的动作都通通被检查到.有没有专门由点击Checkbox产生的消息,是不是需要自己去拦截该消息呢? 人生在勤，不索何获？

 procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 H:Tlistitem;
begin
  H:=listview1.GetItemAt(X,Y);
  if H.Checked then
    H.Selected:=true;
end;