1、delphi 构件制作方法简介Delphi 作为 rad 工具，以其快速编译和友好的可视化界面受到广泛欢迎。delphi 提供了很多现成构件，而且随着版本更新不断增加新构件。另外还可以买到第三方开发的特色构件，或从因特网下载免费构件。这些构件足以支持一般应用系统开发。但应用开发人员仍有必要自己制作构件。采用构件形式可以把对象严密封装，并加上一层直观外壳，有利于软件调试和代码重用。开发群体以构件为功能单位分工协作，比较容易实现工程化管理，从软件规划设计到测试修改都可以减少意外差错，大大提高工作效率。成熟的构件还可以作为商品软件出售，带来附加效益，且有利于软件开发的社会化分工协作。delphi 的
2、构件使用和构件制作采用同样的工作环境和相似的编程方法，只要弄清基本原理，制作构件无需学习多少新东西。基本概念制作构件的基本过程可以概括为：1编写构件单元（unit） 。其中包含构件声明和构件实现代码。2按照与普通 delphi 单元同样的方法编译和调试构件单元。3创建构件注册单元。其中用 uses 语句连接构件单元，并用 register 过程完成构件的注册。4编写构件联机帮助信息，并编译成标准 windows 帮助文件。全部工作完成后，生成构件单元二进制文件（dcu） 、构件注册源文件（pas）和帮助信息文件（hlp）及附加的关键词文件（ kwf） 。用户拿到这些文件后，就可以安装使用了。在
3、 delphi 环境下调用菜单命令，启动安装过程（安装过程中需指定注册文件名） ，可以把构件注册到 delphi 的 vcl 库中，并在构件工具条上生成一个新按钮。借助 helpinst 安装工具可以把关键词文件并入 dephi 帮助索引系统，用 f1 键实现联机帮助。这样制作出的dcu 文件与一般 delphi 单元没有根本区别，即使不安装到 vcl 库中也可以由其他单元直接调用。最大的区别在于：构件单元中某些属性和事件声明为 published，从而在程序设计期对用户是可见的，用户可以通过对象编辑窗口（objectinspector）访问这些属性和事件。这是可视化程序设计的关键所在。对象的
4、继承与修改制作构件第一件事就是选择适当的 delphi 对象类型作为父对象，以派生新的对象。子对象可以继承父对象的全部非 private 部件，但不能摆脱不需要的部件。因此，所选父对象应尽可能多地包含子对象所需的属性、事件和方法，但不应包含子对象不需要的东西。tcomponent 是所有 delphi 构件的基点，但若直接从 tcomponent 派生新构件，很多东西就需要自己从头做起。一般只有非可视构件才直接从 tcomponent 派生。delphi 提供了若干专门用于制作控件（可视构件）的对象类型，都是从 tcontrol 和 twincontrol 派生而来。其派生关系如下：tcont
5、roltgraphiccontroltcustomlabeltwincontroltcustomcontroltcustomgridtbuttoncontroltcustomgroupboxtscrollingwincontrol tcustompaneltcustomcomboboxtcustomedittcustomlistboxtcontrol 的子类型用于非窗口式控件，twincontrol 的子类型则用于窗口式控件。除非特殊需要，一般不直接从 tcontrol 和 twincontrol 派生新控件，而是从其子类型派生。这样可以充分利用原有的属性、事件和方法，减少很多工作量。在这些构
6、件类型中，非通用的属性、事件和方法都声明为 protected。这样可以禁止构件用户访问，又能被子类型继承和修改。在新构件中，可以简单地把继承来的属性和事件重新声明为 published，使构件用户能在设计期通过对象编辑窗口访问，也可以进而修改属性的默认值和读写方式，或是重载（override）事件处理子过程和其他构件方法，以修改其中的程序代码。重声明可以放宽访问权限，但不能 相反，例如，不可能把 published 属性重声明为 private 或 pro tected。为了增加新功能，常常需要定义全新的属性、事件和方法。定义时，一般总是把对用户开放的属性和事件声明为 published，把
7、方法声明为 public 或 protected。构件属性在构件中，属性和方法往往可以相互替代。对构件用户来说，属性比方法更直观简便。因此，只要可能，应尽量以属性取代方法。属性类型包括简单类型（numeric，character，string） 、枚举类型、集合类型、对象类型（例如 font）和数组类型（例如 tstrings 类型中的 strings） 。其定义方法如下：typeprivateflayers：integer；内部存储用的变量functiongetlayers：integer；用来读属性值的方法proceduresetlayers（alayers：integer ） ；用来写属
8、性值的方法publishedpropertylayers：integerreadgetlayerswritesetlayersdefault1；end；每个属性都需要相应的 private 变量用于内部存储。按照约定，变量名以 f 打头，后跟属性名（此处为 layers） ，读写方法名称分别为 get 加属性名和 set 加属性名。写方法总是带一个与属性类型相同的参数，用以传送属性值。此参数可以传值，也可以传递变量。如果不定义写方法（省略 write 部分） ，此属性便成为只读属性。读写方法应该在 pri vate 部分声明，以使其对构件用户和构件的派生对象保持隐蔽。读写方法除了取值和赋值之外
9、，还可以附加其他操作代码，使属性读写产生附加效应。这正是属性可以取代方法的原因。如果不需要附加效应，可以不定义读写方法，采用直接访问格式来声明属性：propertylayers：integerreadflayerswriteflayersdefault1；default 命令符用来指定属性的默认值，同时需要在构件的构造函数中为属性设置初值。default 命令的作用是在窗体文件存盘时提供参照：若属性当前值与 default 命令指定的值不同，则把当前值保存在文件中，否则便无需保存。如果省略 default 命令，属性当前值总是保存在窗体文件中。事件与事件处理过程创建构件时，事件也被当做属性来处
10、理，区别仅在于事件必须定义为过程类型，使其成为一个隐蔽指针，指向某个潜在的过程。当构件用户为事件指定处理子程序后，事件便成为指向该子程序的指针。事件的定义方式如下：typeprivatefonclick：tnotifyevent；声明事件变量以保存过程指针publishedpropertyonclick：tnotifyeventreadfonclickwritefonclick；end；此例正是 delphi 标准控件中 click 事件的定义方式。可以看出，除了 onclick 被定义为过程类型外，其定义格式与一般属性的直接访问格式几乎完全相同。delphi 预定义了所有标准事件的过程类型及
11、标准事件所引发的虚方法。其中，click 事件将引发如下虚方法：proceduretcontrolclick；beginifassigned（onclick ）thenonclick（self ） ；以下是默认处理部分end；其中，assigned 函数检验 onclick 是否已分配了事件处理过程。如果返回值为 true，则调用用户指定的事件处理过程。通过重载此虚方法，可以修改 click 事件的处理方式。在重载的方法中，一般应先调用用户处理程序，然后再安排后续处理。在本例中，首行代码应当是 inheritedclick。需要注意的是，构件用户不一定会给事件指定处理程序，因此事件不能定义为函
12、数类型，否则可能会指向返回值类型不定的空函数。如果需要事件处理过程返回某个值，可以借助 var 参数。调用用户程序之前应确保此参数包含有效返回值，以免用户未指定事件处理过程时出错。如果 delphi 标准事件不能满足需要，也可以自己定义事件。其核心思想是选择适当的windows 消息来引发构件中的事件过程。篇幅所限，不拟详述，请读者参阅有关资料。方法处理要点方法处理在创建构件时和使用构件时没有多大区别，但有些问题仍需要注意。首先要注意的是，构件通常是在事件处理过程中调用，而构件作者又无法预测用户将在什么环境下如何调用构件。因此，构件中的方法应尽量避免占用系统资源，避免使 windows 停止对
13、用户操作的反应。创建构件时应随时意识到，此构件不仅可以直接调用，而且可用来创建别的构件。即使是对用户隐蔽的方法也应具有完整的功能和清晰的接口。除了属性读写方法之外，内部方法一般应声明为 protected 虚方法，以便被派生对象继承和重载。属性读写方法则应采用private 声明严密保护。派生对象如果需要读写父对象的属性值，应该访问属性本身，没有必要直接访问其读写方法。构件测试制作构件的核心工作是编写构件单元，包括根据构件功能要求设定对用户开放的属性、事件和方法，设定用以实现这些部件的变量、过程和函数等等。除了属性和事件有 特殊格式之外，构件单元的设计方式与一般 delphi 单元没有什么不同
14、，只是单元中不能包含窗体。在编写构件单元的过程中，可以借助一个测试窗体直接对其测试。以可视化方法在窗体上安排构件，本质上不过是自动生成调用构件的代码。即使构件未并入 vcl 库，无法使用可视化操作，也可以手工编写这些调用代码。这样测试，可以免去反复修改而导致的反复安装。测试时，需先建立一个窗体单元，然后进行以下操作：1把被测构件单元名称加入窗体单元的 uses 语句中，并在 public 部分声明被测构件的对象实例。2在窗体单元的 formcreate 子程序中调用被测构件的 create 方法，以构造构件实例，其owner 参数设置为 self，即窗体本身。然后给 parent 属性赋值，并
15、适当设置其他属性值。parent 是容纳构件的父对象，如果是窗体本身，应设置为 self。3运行包含测试窗体的工程，找出构件程序中的错误。注册构件注册构件用的程序代码可以放在构件单元中，但在 delphi 下注册构件时要求提供包含注册代码的源程序文件（pas 文件） ，因此，比较好的方式是把构件核心代码编译成dcu文件或dll 动态链接库，在注册源文件中只放注册代码和外围程序。下面是注册代码实例：typetmypanelclass（tcustompanel）tmylabelclass（tcustomlabel）procedureregister；implementationprocedurer
16、egister；beginregistercomponents（samples， tmypanel，tmylabel ） ；end；注册过程名必须是 register。过程体中调用 register compnents，其中的两个参数分别指定 delphi 构件工具条页名和要注册的构件类型。如果指定页不存在，delphi 将创建一个新页。delphi 环境提供了一个构件生成器（componentex pert） ，可用来自动生成注册单元。构件工具条上每个构件需要一个 2424 点阵 bitmap 图标。图标可以借助 delphi 的imageeditor 编辑生成，以dcr 资源文件的形式提供
17、给构件用户，文件与注册单元文件相同。如果不提供此文件，delphi 将采用默认图标。提供联机帮助一个成熟的构件，无论是用于开发群体还是用做商品软件，都要有联机帮助信息才能正常使用。delphi 的帮助信息与 windows 一般帮助信息结构基本上相同，其编写方法可参见有关资料。但 delphi 包含一个特殊的帮助搜索引擎，能跨越多个帮助文件搜索关键词。因此，在构件帮助文件中不仅要有普通 k 型关键词脚注，还要包含 delphi 所用的 b 型关键词脚注。脚注内容有如下约定：在 delphi 的对象编辑窗口和代码编辑窗口中，用 f1 键可以引发帮助搜索引擎，通过 b 型关键词调出有关帮助主题。为
18、了实现这种帮助机制，需借助keywordgenerate 程序来生成关键词文件（kwf） ，与帮助信息文件（hlp）一起交给构件用户。用户借助 helpinst 程序把关键词文件内容并入 delphi 主帮助索引文件（hdx）中。 构件联机帮助信息应当与 delphi 标准构件帮助信息格式相同。编写帮助文件时最好遵循如下约定：1每个构件有一个单独的帮助主题（topic） ，内容包含构件简介及用户可见的属性、事件和方法列表。2新增的及修改较大的属性、事件和方法均应有单独的帮助主题，其中应包含所属构件、用途、声明格式等内容。3每个帮助主题都应包含 k 型脚注，以便用 f1 键引发。在 Delphi
19、 程 序 中 使 用 IE 浏 览 器 控 件以 TWebBrowser(IE4 浏 览 器 控 件 )为 例 子 。TWebBrowser 的 常 见 属 性 和 方 法 主 要 有 ：GoBack： 方 法 ， 后 退 到 上 一 个 页 面 。GoForward： 方 法 ， 前 进 到 下 一 个 页 面 。GoHome： 方 法 ， 调 用 默 认 的 主 页 页 面 ，该 页 面 在 IE 的 选 项 中 设 定 。GoSearch： 方 法 ， 调 用 默 认 的 搜 索 页 面 ，该 页 面 在 IE 的 选 项 中 设 定 。Navigate(const URL: WideS
20、tring; var Flags, TargetFrameName, PostData, Headers: OleVariant)： 方 法 ，调 用 指 定 页 面 ， 具 体 参 数 如 下 ：URL： 指 定 页 面 的 URL。 Flags：Word 类 型 ， 作 用 还 不 清 楚 ， 可 设 为 0。TargetFrameName： WideString，打 开 页 面 所 在 的 Frame， 为 空 字 符 串 时 在 当 前 的Frame 中 打 开 ； TargetFrameName指 定 的 Frame 存 在 时 在 Frame 中 打 开 ；TargetFrameN
21、ame 指 定 的 Frame不 存 在 时 则 新 建 一 个 窗 口 打 开 ， 此 时 就 相 当于 调 用 外 部 的 IE 浏 览 器 了 。PostData： boolean， 是 否 允 许 发 送 数 据 。Headers： WideString，要 发 送 的 URL 请 求 的 头 部 数 据 。Refresh： 方 法 ， 刷 新 当 前 页 面 。Stop： 方 法 ， 停 止 调 用 或 打 开 当 前 页 面 。LocationName： 属 性 (WideString)， 当 前 位 置 的 名 称 。LocationURL： 属 性 (WideString)，
22、当 前 位 置 的 URL。Busy: 属 性 (Boolean)， 是 否 正 忙 。Visible: 属 性 (Boolean)， 浏 览 器 窗 口 是 否 可 见 。(以 下 属 性 为 在 TWebBrowser 新 增 ，TWebBrowser_V1 中 没 有 ， 其 作 用 有 待 探 索 )StatusBar: 属 性 (Boolean)， 是 否 显 示 状 态 栏 。StatusText: 属 性 (WideString)， 状 态 栏 内 容 。ToolBar: 属 性 (SYSINT)， 工 具 栏 中 的 内 容 。MenuBar: 属 性 (Boolean)， 是
23、 否 显 示 菜 单 条 。FullScreen: 属 性 (Boolean)， 是 否 全 屏 显 示 。Offline: 属 性 (Boolean)， 是 否 脱 机 浏 览 。AddressBar: 属 性 (Boolean)， 是 否 显 示 地 址 栏 。TWebBrowser 的 常 见 事 件 主 要 有 ：OnStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;- 在 状 态 栏 提 示 信 息 变 化 时 发 生 ， 参 数 Text 为 当 前 状 态 栏 提 示 信
24、 息 ， 我 们 可 以 根 据 该信 息 来 更 新 我 们 自 己 的 状 态 栏 提 示 信 息 或 处 理 其 它 的 事 务 - OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: Integer) of object; - 在 打 开 页 面 的 进 度 变 化 时 发 生 ， 参 数 Progress 为 当 前 进 度 ， ProgressMax 为 总进 度 ， 我 们 可 以 根 据 这 两 个 参 数 来 更 新 我 们 自 己 的 状 态 栏 提 示 信 息 或 处 理 其 它 的 事
25、 务 - OnCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object; - 当 执 行 新 的 命 令 时 发 生 ， Command 为 命 令 标 识 ， Enable 为 是 否 允 许 执 行 该 命令 OnTitleChange = procedure(Sender: TObject; const Text: WideString) of object; - 在 页 面 的 标 题 发 生 变 化 时 发 生 ， Text 为 当 前 标 题 - OnP
26、ropertyChange = procedure(Sender: TObject; const Property_: WideString) of object; - 在 页 面 的 属 性 发 生 变 化 时 发 生 ， Property_为 属 性 名 称 OnDownloadComplete: TNotifyEvent - 在 下 载 页 面 完 成 后 发 生 - OnDownloadBegin: TNotifyEvent - 在 下 载 页 面 开 始 前 发 生 三 、 在 Delphi 程 序 中 应 用 IE 浏 览 器 控 件 的 两 个 例 子 - （ ） 制 作 自 己
27、 的 帮 助 系 统 - 我 们 利 用 IE 浏 览 器 控 件 为 用 户 制 作 了 一 个 帮 助 系 统 ， 帮 助 文 件 由 多 个 HTML 文件 组 成 ， 一 个 主 题 对 应 一 个 HTML 文 件 (Topic.HTM)， 每 个 主 题 下 的 项 目 对 应 HTML文 件 中 的 一 个 标 签 (- 在 下 面 例 子 中 ， 演 示 了 TWebBrowser(IE4 浏 览 器 控 件 )的 Navigate 方 法 的 使 用方 法 。 请 注 意 程 序 中 的 注 释 。 (下 面 为 程 序 的 主 要 片 段 )。 根 据 主 题 和 项 目
28、调 用 帮 助 文 件 procedure ShowHelp( HelpTopic,HelpItem : String );varTargetFrameName,PostData,Heads,Flags : OleVariant;URL : widestring;beginTargetFrameName := ;指 定 Frame 的 空 字 符 串 时 ,则 在 当 前 Frame 中 打 开 帮 助 文 件 PostData := false;不 发 送 数 据 Heads := ;Header 信 息 为 空 Flags := 0;Flags 设 为 0URL := HelpTopic
29、+ .HTM帮 助 信 息 的 URLwith formHelp.webbrowser do在 帮 助 窗 口中 的 IE 浏 览 器 控 件 中 显 示 帮 助 信 息 beginnavigate(URL,Flags,TargetFrameName,PostData,Heads);显 示 帮 助 信 息 end;end;- （ ） 显 示 一 个 GIF 动 画 - 假 如 你 还 没 有 一 个 适 合 的 动 画 显 示 控 件 ， 不 妨 试 用 一 下 下 面 方 法 procedure ShowGIF( GIFFileName : String );varTargetFrameNa
30、me,PostData,Heads,Flags : OleVariant;URL : widestring;beginTargetFrameName := ;指 定 Frame 的 空 字 符 串 时 ,则 在 当 前 Frame 中 打 开 动 画 文 件 PostData := false;不 发 送 数 据 Heads := ;Header 信 息 为 空 Flags := 0;Flags 设 为 0URL := GIFFileName;with formGIF.webbrowser do在 指 定 窗 口 中 的IE 浏 览 器 控 件 中 显 示 动 画 beginnavigate(URL,Flags,TargetFrameName,PostData,Heads);显 示 动 画 文 件 end;end;址栏。
