懒猫窝窝

Delphi二次开发AutoCAD（五）—集合对象

Delphi二次开发AutoCAD（五）—集合对象
集合对象是一种预定义的对象，包含相似对象的所有实例（即它是相似对象所有实例的上级对象）。以下是集合对象列表： 名称 描述 集合 包含当前 AutoCAD 任务中打开的所有文档。 ModelSpace 集合 包含模型空间中的所有图形对象（图元）。 PaperSpace 集合 包含活动图纸空间布局中的所有图形对象（图元）。 Block 对象 包含特定块定义中的所有图元。 ...
2012年04月08日 程序设计 暂无评论 阅读全文

Delphi二次开发AutoCAD（四）—访问对象层次结构

Delphi二次开发AutoCAD（四）—访问对象层次结构
从Delphi程序内访问对象层次结构首先必须要连接到应用程序。Delphi通过 ActiveDocument 对象提供指向当前 AutoCAD 任务中活动图形的链接。使用ActiveDocument，用户可以快速访问当前的 Document 对象及其所有方法和特性，还可以访问层次结构中的所有其他对象。 ActiveDocument 用于全局工程时，通常是指 AutoCAD 中的活动文档。ActiveDocument用于内嵌工程时...
2012年04月08日 程序设计 暂无评论 阅读全文

Delphi二次开发AutoCAD（三）—了解 AutoCAD 对象模型

Delphi二次开发AutoCAD（三）—了解 AutoCAD 对象模型
1.1 对象概述 对象是所有 ActiveX 应用程序的主要构造块。每一个显示的对象均精确代表一个 AutoCAD 组件。AutoCAD ActiveX 接口中有许多不同类型的对象。例如： ?  直线、圆弧、文字和标注等图形对象都是对象。 ?  线型与标注样式等样式设置都是对象。 ?  图层、编组和块等组织结构都是对象。 ?  视图与视口等图形显示都是对象。 ?...
2012年04月08日 程序设计 暂无评论 阅读全文

Delphi二次开发AutoCAD（一）—数据连接

Delphi二次开发AutoCAD（一）—数据连接
利用Delphi二次开发AutoCAD实际上是用OLE Automation实现了Delphi与AutoCAD数据之间的转换。OLE是一种基于COM的技术，OLE允许应用程序使用其他应用程序提供的通用接口来访问其组件和功能。 要实现Delphi与AutoCAD之间的数据通讯，准备工作我们必须做全。 首先，必须安装AutoCAD R14以上版本，本书以AutoCAD2009为应用版本。 其次，拥有Delphi，在本书中我们以Delphi2010为蓝本对AutoCAD进行二次开发描述。 ...
2012年04月07日 程序设计 评论 2 条 阅读全文

Delphi程序的时限和加密

Delphi程序的时限和加密
Delphi程序的时限和加密本例中TRegistry是关键类，Delphi 4.0不能自行加入，需在uses部分手工加入“registry”，通过其方法“ReadString”和“WriteString”来读出和写入字符，亦可通过其方法“ReadDate”和“WriteDate”来读出和写入日期。 程序第一次运行就写入其运行时间，应用期限为30天，超过30天就...
2012年04月05日 程序设计 暂无评论 阅读全文

通过U盘方式加密(DELPHI版)

通过U盘方式加密(DELPHI版)
实现原理:  1.检查是否是U盘  2.查检U盘的卷标  3.通过VolumeLable的返回值对比判断是否你加密的U盘(卷标要定义好) function CheckUsbDisk(FLable:string):Boolean;       //检验是否是USB优盘 var   Drive: Integer;   DriveLetter: Char; begin   Result :=false;   for Dr...
2012年04月05日 程序设计 暂无评论 阅读全文

DevExpress VCL中使用皮肤及保持EXE体积不巨增的办法

DevExpress VCL中使用皮肤及保持EXE体积不巨增的办法
一. DELPHI的主菜单: Project   -> Modify Skin Options ,弹出Project Skin Options Editor 对话框, 从中选择Enable skin Support ,从下面的列表中,只选择: UserSkin这一项,其它的取消选择,点OK退出.   (注意:此步骤需DEV40以上版本才有效) 二. 从Dev Express 项下选择dxSkinController控件,添加到工程,设置dxSkinController1的SkinName属性设为:UserSkin ; 三.  代码:    &nb...
2012年04月05日 程序设计 暂无评论 阅读全文

delphi filestream

delphi filestream
procedure TForm1.Button1Click(Sender: TObject); var    f1:TFileStream;       filename:String; begin    OpenDialog1.Execute ;    filename:=OpenDialog1.FileName ;    f1:=TfileStream.Create (filename,fmopenread);    try    &n...
2012年04月04日 程序设计 暂无评论 阅读全文

Delphi自动检测U盘插入、拔出及获取U盘盘符

Delphi自动检测U盘插入、拔出及获取U盘盘符
Delphi自动检测U盘插入、拔出及获取U盘盘符 //检测U盘插入、拔出 测试通过 1、新建工程； 2、定义一个私有过程 procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; 完整代码如下： unit Unit1; interface uses    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   &nb...
2012年04月04日 程序设计 暂无评论 阅读全文

Delphi ListView基本用法大全

Delphi ListView基本用法大全
Delphi ListView基本用法大全 //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Columns.Items[1].Caption:='type'; ListView1.Columns.Items[2].Caption:='title'; ListView1.Columns.Items[2].Width:=300; Listview1.ViewSt...
2012年04月04日 程序设计 暂无评论 阅读全文
Copyright © 懒猫窝窝 保留所有权利.   主题设计 AB模板网

用户登录