关于listview的绘图问题

Question

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(ListView1.Canvas.Handle,TRANSPARENT);  
    Perform(LVM_SETTEXTBKCOLOR,0,LongInt(CLR_NONE));
    ListView_SetBKColor(Handle,CLR_NONE);
end;

Answer 1

在程序中试了，不行
ListView_SetBKColor(Handle,CLR_NONE)是什么语法？好象编译不通

Answer 2

Graphics::TBitmap *bitmap= new Graphics::TBitmap();
        bitmap->LoadFromFile("e:\\20.bmp");
        ListView1->Canvas->Draw(0,0,bitmap);
        ListView1->Color = clNone;
        SetBkMode(ListView1->Canvas->Handle,TRANSPARENT);
        ListView1->Perform(LVM_SETBKCOLOR ,0,CLR_NONE);
        ListView1->Perform(LVM_SETTEXTBKCOLOR,0,CLR_NONE);这个是我调试通过的bcb程序。