label保存为图像

最新推荐文章于 2024-10-11 07:19:16 发布

转载最新推荐文章于 2024-10-11 07:19:16 发布 · 626 阅读

delphi 专栏收录该内容

41 篇文章

订阅专栏

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;