一句话为当前窗口客户区捉图: GetFormImage

最新推荐文章于 2022-09-09 12:01:45 发布

转载最新推荐文章于 2022-09-09 12:01:45 发布 · 598 阅读

delphi 专栏收录该内容

41 篇文章

订阅专栏

本文介绍了一个简单的Delphi程序示例，演示了如何通过Delphi代码将当前窗体的内容保存为位图文件。该示例代码适用于需要快速实现界面截图功能的应用场景。

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);
begin
  Self.GetFormImage.SaveToFile('c:\temp\Form1.bmp');
end;