把整个窗体保存为图片的方法 - 回复 "乌龙哈里" 的问题

转载于 2008-06-27 10:13:00 发布 · 61 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/del/archive/2008/06/27/1230941.html

本文介绍了一种使用Delphi实现窗体截图的方法。通过创建位图并利用BitBlt函数将窗体内容复制到位图中，进而保存为文件。这种方法适用于需要记录或分享应用程序界面的场景。

问题来源: http://www.cnblogs.com/del/archive/2008/06/27/1197961.html#1237665

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  bit: TBitmap;
begin
  bit := TBitmap.Create;
  bit.Width := Width;
  bit.Height := Height;
  BitBlt(bit.Canvas.Handle, 0, 0, Width, Height, GetWindowDC(Handle), 0, 0, SRCCOPY);
  bit.SaveToFile('c:\temp\Form1.bmp');
  bit.Free;
end;

end.

转载于:https://www.cnblogs.com/del/archive/2008/06/27/1230941.html