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);
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.

相关阅读 >>

Delphi xe5的新功能“ tlistview内置搜索过滤”

Delphi使用ixmlhttprequest 简单获取网页源代码

Delphi types of actual and formal var parameters must be identical

Delphi如何计算一个文件目录的大小

Delphi xe6 string转memorystream

Delphi 让label 始终在form的正中显示

Delphi pos的用法

Delphi 利用tidencodermime tiddecodermime 组件字符串加密解密

Delphi 怎么计算一个memo中输入的汉字数目

Delphi 获取硬盘盘符

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...