求救:delphi，listview控件如何更改背景色

Question

各位大虾们，救命呐
Delphi中，listview控件如何更改指定行制定列的背景色，例如设置第三行第二列的背景色为黑色，就这个单元格的背景色

Answer 1

procedure TfrmListView.lvDataAdvancedCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
  inherited;
// do what u want to
end;

Answer 2

procedure TFormm.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
//ListView1.OwnerDraw:=true;
if (Item.SubItems.Strings[2]='WH_KEYBOARD') or
//if item.SubItems.ValueFromIndex[2]<>'' then
//showmessage('sd');
   (Item.SubItems.Strings[2]='WH_MOUSE') then Sender.Canvas.Brush.Color :=clInactiveBorder;   end;

Answer 3

一定要在跟listview相关的时间中写吗？如果是个单独的button呢