懒猫窝窝

集合对象是一种预定义的对象，包含相似对象的所有实例（即它是相似对象所有实例的上级对象）。以下是集合对象列表： 名称 描述 集合 包含当前 AutoCAD 任务中打开的所有文档。 ModelSpace 集合 包含模型空间中的所有图形对象（图元）。 PaperSpace 集合 包含活动图纸空间布...

从Delphi程序内访问对象层次结构首先必须要连接到应用程序。Delphi通过 ActiveDocument 对象提供指向当前 AutoCAD 任务中活动图形的链接。使用ActiveDocument，用户可以快速访问当前的 Document 对象及其所有方法和特性，还可以访问层次结构中的所有其他对象。 ActiveDocument 用于...

1.1 对象概述 对象是所有 ActiveX 应用程序的主要构造块。每一个显示的对象均精确代表一个 AutoCAD 组件。AutoCAD ActiveX 接口中有许多不同类型的对象。例如： ?  直线、圆弧、文字和标注等图形对象都是对象。 ?  线型与标注样式等样式设置都是对象。 ?  ...

利用Delphi二次开发AutoCAD实际上是用OLE Automation实现了Delphi与AutoCAD数据之间的转换。OLE是一种基于COM的技术，OLE允许应用程序使用其他应用程序提供的通用接口来访问其组件和功能。 要实现Delphi与AutoCAD之间的数据通讯，准备工作我们必须做全。 首先，必须安装AutoCAD R14以上版本，本书以AutoCAD2009为应用版...

Delphi程序的时限和加密本例中TRegistry是关键类，Delphi 4.0不能自行加入，需在uses部分手工加入“registry”，通过其方法“ReadString”和“WriteString”来读出和写入字符，亦可通过其方法“ReadDate”和“WriteDate”来...

实现原理:  1.检查是否是U盘  2.查检U盘的卷标  3.通过VolumeLable的返回值对比判断是否你加密的U盘(卷标要定义好) function CheckUsbDisk(FLable:string):Boolean;       //检验是否是USB优盘 var   Drive: Integer;   DriveLett...

一. DELPHI的主菜单: Project   -> Modify Skin Options ,弹出Project Skin Options Editor 对话框, 从中选择Enable skin Support ,从下面的列表中,只选择: UserSkin这一项,其它的取消选择,点OK退出.   (注意:此步骤需DEV40以上版本才有效) 二. 从Dev Express 项下选择dxSkinController控件,添加到工程,设...

procedure TForm1.Button1Click(Sender: TObject); var    f1:TFileStream;       filename:String; begin    OpenDialog1.Execute ;    filename:=OpenDialog1.FileName ;    f1:=TfileStream...

Delphi自动检测U盘插入、拔出及获取U盘盘符 //检测U盘插入、拔出 测试通过 1、新建工程； 2、定义一个私有过程 procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; 完整代码如下： unit Unit1; interface uses    Windows, Messages, SysUtils, Va...

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].Cap...