delphi之截取整个窗体图片
分类:web前端

很简单的代码,:-D

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:tempForm1.bmp');{temp目录必须事先存在那里才行。} 
  bit.Free; 
end; 

end.

本文由10bet手机官网发布于web前端,转载请注明出处:delphi之截取整个窗体图片

上一篇:获取本机外网,PHP中限制IP段访问代码10bet手机官网 下一篇:Delphi中轻松实现TIdFtp的断点续传,文件的读取
猜你喜欢
热门排行
精彩图文