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;