(六)区域抓图窗体创建一个新的Form1，保存为Capture1.pas。_程序员之家(Delphi图象截取编程示例(6))

开发技术指南» 文章正文

引言： (六)区域抓图窗体创建一个新的Form1，保存为Capture1.pas。

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

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

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

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

(六)区域抓图窗体

创建一个新的form1,保存为capture1.pas.设置属性bordericons的四个属性为false. 【程序编程相关:ASP 验证码的程序及原理】

【推荐阅读:linux生成RPM安装包的过程及问题解】

borderstyle设为bsnone,cursor设为crcross,formstyle设为fsstayontop. 【扩展信息:把控件加到toolbar上】

添加一个私有变量:fdragging:boolean;两个公共变量:frect:trect,fbmp:tbitmap;

form1的作用:在区域抓图时创建,抓图后消失.

unit capture1;

interface

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs;

type

tform1 = class(tform)

procedure formcreate(sender: tobject);

procedure formdestroy(sender: tobject);

procedure formpaint(sender: tobject);

procedure formmousedown(sender: tobject; button: tmousebutton;

shift: tshiftstate; x, y: integer);

procedure formmousemove(sender: tobject; shift: tshiftstate; x,

y: integer);

procedure formmouseup(sender: tobject; button: tmousebutton;

shift: tshiftstate; x, y: integer);

private

fdragging:boolean;

... 下一页

·oracle imp字符集问题的解决 »显示摘要«

摘要：问题：在imp一个dmp文件的时候，提示不支持要求的字符集转换（从类型850到852）. 原理： oracle多国语言设置是为了支持世界范围的语言与字符集，一般对语言提示，货币形式，排序方式和char,varchar2,clob,long字段的数据的显示等有效。oracle的多国语言设置最主要的两个特性就是国家语言设置与字符集设置，国家语言设置决定了界面或提示使用的语言种类，字符集决定了数据库保......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：