delphi 为当前窗口客户区捉图: GetFormImage

本文整理自网络，侵删。

 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;

end.
 

相关阅读 >>

Delphi-edit中只能输入数字且只能输入一个小数点

Delphi xe7 up1 调用android振动功能

Delphi-xe5-开发 android uri简介

Delphi findfiles获取目录下所有文件

Delphi 10 下提示sharedactivitycontext错误的解决方法

Delphi 截图函数screenshot

Delphi 悬浮窗口 浮动窗口 迅雷下载浮动窗口的实现

Delphi 正则提取txt中的email 数据

setwindowpos改变窗口的位置与状态

Delphi 双击richedit高亮所有关键字

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 为当前窗口客户区捉图: GetFormImage