当前位置：首页 » 编程博文

开发技术指南» 文章正文

    引言： 3)抓取窗体或控件图片 抓取窗体或控件图片，即要用到一个新的Form2，参见《Delphi图象截取编程示例(7)》 在Main单元implementation的uses中添加Capture2。

 

 

Delphi图象截取编程示例(5)

3)抓取窗体或控件图片

   抓取窗体或控件图片,即要用到一个新的form2,参见«delphi图象截取编程示例(7)» 【程序编程相关:linux生成RPM安装包的过程及问题解】

【推荐阅读:VB.net入门(4):函数，过程】

   在main单元implementation的uses中添加capture2. 【扩展信息:ASP 验证码的程序及原理】

  

[capture windows or controls]窗体或控件抓图的action 事件

procedure tmainform.cptwindowsexecute(sender: tobject);

var p:tpoint; handles:hwnd;

begin

  inc(capturenum,1);

  application.minimize ;

  delay(500);

  filename:=´capture´+inttostr(capturenum);

  filename:=defaultdirectory+filename;

  with tform2.create(application) do

  try

    if showmodal=mrok then

    begin

      createmdichild(filename,true);

      statusbar.simpletext := filename;

      delay(500);

      abitmap:=tbitmap.create ;

      getcursorpos(p);

      handles:=windowfrompoint(p);

      abitmap:=capturewindowimage(handles);

      child.image1.picture.bitmap:=abitmap;

...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：