label保存为图像

var

   cc:TControlCanvas;

   bmp:TBitmap;

begin

   bmp:=TBitmap . Create;

   cc:=TControlCanvas . Create;

   try

     cc . Control:=Label1;

     bmp . Width:=cc . Control . Width;

     bmp . Height:=cc . Control . Height;

     BitBlt(bmp . Canvas . Handle, 0 , 0 ,

            bmp . Width,bmp . Height,cc . Handle, 0 , 0 ,SRCCOPY);

     bmp . SaveToFile( 'c:\test.bmp' );

   finally

     cc . Free;

     bmp . Free;

   end ;

end ;