在delphi中将form保存为图像，包含滚动条隐藏的部分

最新推荐文章于 2022-03-01 15:10:50 发布

hahafan

最新推荐文章于 2022-03-01 15:10:50 发布

阅读量974

点赞数

文章标签： delphi integer c

本文链接：https://blog.csdn.net/hahafan/article/details/766232

版权

本文介绍了一种在Delphi中将包含滚动条的Form保存为图像的方法。通过创建TBitmap对象，调整宽度和高度以考虑滚动条，然后调用WM_PAINT消息绘制Form内容，并使用PaintTo方法将所有可见控件绘制到位图上，最后将位图保存为文件。

摘要由CSDN通过智能技术生成

根据TCustomForm.GetFormImage修改得来：

procedure TForm1.BitBtn1Click(Sender: TObject);
var
ABitmap: TBitmap;
i: Integer;
begin
ABitmap := TBitmap.Create;
if Self.HorzScrollBar.Visible then
    ABitmap.Width := Self.HorzScrollBar.Range
else
    ABitmap.Width := Self.ClientWidth;
if Self.VertScrollBar.Visible then
    ABitmap.Height := Self.VertScrollBar.Range
else
    ABitmap.Height := Self.ClientHeight;
ABitmap.Canvas.Brush := Self.Canvas.Brush;
ABitmap.Canvas.FillRect(ABitmap.Canvas.ClipRect);
Self.Perform(WM_PAINT, ABitmap.Canvas.Handle, 0);
for i := 0 to Self.ControlCount - 1 do
begin
    with TControl(Self.Controls[i]) do
      if (Self.Controls[i] is TWinControl) and Visible then
        TWinControl(Self.Controls[i]).PaintTo(ABitmap.Canvas, Left, Top);
end;
ABitmap.SaveToFile('c:/1.bmp');
FreeAndNil(ABitmap);
end;