我使用http://delphi.ktop.com.tw/topic.php?topic_id=42737的方法產生了一張具透明的Graphics::TBitmap型態bmp,當我打算用CopyRect複製部份的影像給bmp2,如果pos=0也就是整張影像都複製的話,那就會保留透明(Transparent)的特性,如果pos>=1則就會變成黑色的底,我的問題就是,要如何複製部份的影像且保留透明的特性 

 
    Graphics::TBitmap *bmp2 = new Graphics::TBitmap();
    bmp2->Width=bmp->Width;
    bmp2->Height=bmp->Height;
    bmp2->PixelFormat=pf24bit;
    bmp2->HandleType=bmDIB;
    bmp2->Canvas->CopyRect(Rect(pos,0,bmp->Width,bmp->Height),
                           bmp->Canvas,
                           Rect(pos,0,bmp->Width,bmp->Height));
    Image1->Picture->Assign(bmp2);
    delete bmp2;