procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
var
  Bitmap : TBitMap;
begin
    Bitmap := TBitmap.Create;
    Bitmap.LoadFromFile('back.bmp');
    ListView1.Canvas.Draw(0,0,Bitmap);
    ListView1.Color:=clNone;
    SetBkMode(Canvas.Handle,TRANSPARENT);
    Perform(LVM_SETTEXTBKCOLOR,0,LongInt(CLR_NONE));
    ListView_SetBKColor(Handle,CLR_NONE);
end;  
加上背景的。