Delphi TPicture 和 TBitmap 的相互转换

TPicture 转 TBitmap

  
  
  

   
   
    TempBmp.width:
   
   
   =
   
   
   100
   
   
   ;
 TempBmp.height:
   
   
   =
   
   
   100
   
   
   ;
 TempBmp.canvas.Draw(
   
   
   0
   
   
   ,
   
   
   0
   
   
   ,m_PicMouseOn.Graphic);
   
   
   //
   
   
   PicMouseOnj是TPictrue类型;
  
  
  

TBitmap转 TPicture 

  
  
  

   
   
   PicMouseOnj.Pictrue.Graphic:
   
   
   =
   
   
   TempBmp;
   
   
   //
   
   
   TempBmp是TBitmap类型