(六)TMainForm的 (抓图)Action 事件1)全屏抓_程序员之家(Delphi图象截取编程示例(4))

开发技术指南» 文章正文

引言： (六)TMainForm的 (抓图)Action 事件1)全屏抓

摘要：(六)区域抓图窗体创建一个新的form1，保存为capture1.pas。设置属性bordericons的四个属性为false.borderstyle设为bsnone,cursor设为crcross,formstyle设为fsstayontop.添加一个私有变量：fdragging:boolean;两个公共变量:frect:trect,fbmp:tbitmap;form1的作用：在区域抓图时创建，......

·tomcat 组件配置简介 »显示摘要«

摘要： ------ 本文部分内容摘自电子工业出版社《tomcat 与 java web 开发技术详解》 jakarta tomcat 服务器作为一个开放源码的软件，是目前开发企业 java web 应用的最佳选择之一。本文主要了对 tomcat 组件的配置，供大家一起参考、学习。 tomcat 服务器是由一系列可配置的组件构成，其中核心组件是 catalina servlet 容器，它是所有其他......

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

(六)tmainform的 (抓图)action 事件

1)全屏抓图【程序编程相关:VB.net入门(4):函数，过程】

【推荐阅读:VB中的单位缇与常用单位的换算】

[capture desktop] action 事件【扩展信息:linux生成RPM安装包的过程及问题解】

procedure tmainform.cptdesktopexecute(sender: tobject);

begin

inc(capturenum,1);

application.minimize ; //窗体最小化

delay(500); //最小化后延时,为了全屏抓图不把自身抓进图中

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

filename:=defaultdirectory+filename;

createmdichild(filename,true);

statusbar.simpletext := filename;

with activemdichild as tmdichild do begin

image1.picture.bitmap := capturescreen; //抓图

horzscrollbar.range := image1.picture.width;

vertscrollbar.range := image1.picture.height;

end;

... 下一页

·delphi图象截取编程示例(8) »显示摘要«

摘要：(七)抓取图标（icon）的窗体创建一个新的form3，保存为capture3.pas。设置属性bordericons的四个属性为false.borderstyle设为bsnone,formstyle设为fsstayontop.一个私有变量：fdragging:boolean; 两个公共变量:frect:trect,fbmp:tbitmap; unit capture3; interface ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：