注意，本例在 Delphi7.0下调试通过/////////////////////////////////////////////////////////// (一)建立项目 new Items-->Projects-->MDI Application (二)重新设计MDI子窗体...

开发技术指南» 文章正文

引言：注意，本例在 Delphi7.0下调试通过/////////////////////////////////////////////////////////// (一)建立项目 new Items-->Projects-->MDI Application (二)重新设计MDI子窗体...

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

摘要：(四)创建抓取图象的单元文件scrncpt unit scrncpt; interface uses windows,forms,controls,classes,graphics;function capturescreenrect(arect:trect):tbitmap;function capturescreen:tbitmap;function captureclientimage......

·a sample for log4j »显示摘要«

摘要：1.some tools tomcat log4j_1.2.9 http://mirrors.xtria.com/apache/logging/log4j/1.2.9/logging-log4j-1.2.9.zip 2. four files a. web.xml add following code to web.xml <servlet> <servlet-name>l......

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

注意,本例在 delphi7.0下调试通过

/////////////////////////////////////////////////////////// 【程序编程相关:patch rtai 24.1.12 a】

【推荐阅读:C++对象的放置】

【扩展信息:数据结构的学习心得】

(一)建立项目

new items-->projects-->mdi application

(二)重新设计mdi子窗体--childwin,实现抓取的图象在childwin中显示.

在childwin子窗体中去掉原有的memo1控件,添加image控件,image1.align=alclient.

image1.autosize=ture表示原尺寸显示,strech=false表示不按对象框显示.

(三)主界面修改

1)去掉 menu,toolbar,actionlist 中与 paste,new 相关的项

2)添加 printersetupdialog1,savedialog 控件到mainform .

添加菜单项file\打印,属性name为fileprintitem;

添加菜单项file\打印设置,属性enabled=false,name为fileprintset;

添加菜单项edit\draw ,它的属性enabled=false ;

添加菜单项edit\preferences,设置它为包含字菜单(create submenu);

添加菜单项edit\preferences\configuration;

添加菜单项edit\preferences\toolbar,它的checked=true,name=toolbaritem;

添加菜单image;

添加菜单项image\capture desktop;

添加菜单项image\capture area;

... 下一页

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

摘要：(六)tmainform的 (抓图)action 事件1)全屏抓图[capture desktop] action 事件procedure tmainform.cptdesktopexecute(sender: tobject);begin inc(capturenum,1); application.minimize ; //窗体最小化 delay(500); //最小化后延时，为了全屏抓图不把......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：