📄 007.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--控件应用-->DELPHI构件制作方法</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--控件应用 DELPHI构件制作方法">
<META NAME="description" CONTENT=" - DELPHI专题--控件应用 - DELPHI构件制作方法">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index.html">返回</a>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>
<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">DELPHI构件制作方法</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<span class="tt2"> Delphi作为RAD工具，以其快速编译和友好的可视化界面受到广泛欢迎。Delphi提供了很多现成构件，而且随着版本更新不断增加新构件。另外还可以买到第三方开发的特色构件，或从因特网下载免费构件。这些构件足以支持一般应用系统开发。但应用开发人员仍有必要自己制作构件。<br>
采用构件形式可以把对象严密封装，并加上一层直观外壳，有利于软件调试和代码重用。开发群体以构件为功能单位分工协作，比较容易实现工程化管理，从软件规划设计到测试修改都可以减少意外差错，大大提高工作效率。成熟的构件还可以作为商品软件出售，带来附加效益，且有利于软件开发的社会化分工协作。Delphi的构件使用和构件制作采用同样的工作环境和相似的编程方法，只要弄清基本原理，制作构件无需学习多少新东西。<br>
<br>
<strong>基本概念</strong><br>
制作构件的基本过程可以概括为：<br>
1．编写构件单元（unit）。其中包含构件声明和构件实现代码。<br>
2．按照与普通Delphi单元同样的方法编译和调试构件单元。<br>
3．创建构件注册单元。其中用uses语句连接构件单元，并用Register过程完成构件的注册。<br>
4．编写构件联机帮助信息，并编译成标准Windows帮助文件。<br>
全部工作完成后，生成构件单元二进制文件（．DCU）、构件注册源文件（．PAS）和帮助信息文件（．HLP）及附加的关键词文件（．KWF）。用户拿到这些文件后，就可以安装使用了。在Delphi环境下调用菜单命令，启动安装过程（安装过程中需指定注册文件名），可以把构件注册到Delphi的VCL库中，并在构件工具条上生成一个新按钮。借助HelpInst安装工具可以把关键词文件并入Dephi帮助索引系统，用F1键实现联机帮助。<br>
这样制作出的．DCU文件与一般Delphi单元没有根本区别，即使不安装到VCL库中也可以由其他单元直接调用。最大的区别在于：构件单元中某些属性和事件声明为published，从而在程序设计期对用户是可见的，用户可以通过对象编辑窗口（ObjectInspector）访问这些属性和事件。这是可视化程序设计的关键所在。<br>
<br>
<strong>对象的继承与修改</strong><br>
制作构件第一件事就是选择适当的Delphi对象类型作为父对象，以派生新的对象。子对象可以继承父对象的全部非private部件，但不能摆脱不需要的部件。因此，所选父对象应尽可能多地包含子对象所需的属性、事件和方法，但不应包含子对象不需要的东西。<br>
TComponent是所有Delphi构件的基点，但若直接从TComponent派生新构件，很多东西就需要自己从头做起。一般只有非可视构件才直接从TComponent派生。Delphi提供了若干专门用于制作控件（可视构件）的对象类型，都是从TControl和TWinControl派生而来。其派生关系如下：<br>
TControl－－－TGraphicControl－－－TCustomLabel<br>
TWinControl－－TCustomControl－－－TCustomGrid－－－TButtonControl－－<br>
TCustomGroupBox－－－TScrollingWinControl－－TCustomPanel－－－<br>
TCustomComboBox－－－TCustomEdit－－－TCustomListBox<br>
TControl的子类型用于非窗口式控件，TWinControl的子类型则用于窗口式控件。除非特殊需要，一般不直接从TControl和TWinControl派生新控件，而是从其子类型派生。这样可以充分利用原有的属性、事件和方法，减少很多工作量。<br>
在这些构件类型中，非通用的属性、事件和方法都声明为protected。这样可以禁止构件用户访问，又能被子类型继承和修改。在新构件中，可以简单地把继承来的属性和事件重新声明为published，使构件用户能在设计期通过对象编辑窗口访问，也可以进而修改属性的默认值和读写方式，或是重载（override）事件处理子过程和其他构件方法，以修改其中的程序代码。重声明可以放宽访问权限，但不能
相反，例如，不可能把published属性重声明为private或protected。<br>
为了增加新功能，常常需要定义全新的属性、事件和方法。定义时，一般总是把对用户开放的属性和事件声明为published，把方法声明为public或protected。<br>
<strong><br>
构件属性</strong><br>
在构件中，属性和方法往往可以相互替代。对构件用户来说，属性比方法更直观简便。因此，只要可能，应尽量以属性取代方法。<br>
属性类型包括简单类型（numeric，character，string）、枚举类型、集合类型、对象类型（例如font）和数组类型（例如TStrings类型中的Strings）。其定义方法如下：<br>
type<br>
private<br>
FLayers：Integer；｛内部存储用的变量｝<br>
functionGetLayers：Integer；｛用来读属性值的方法｝<br>
procedureSetLayers（ALayers：Integer）；｛用来写属性值的方法｝<br>
published<br>
propertyLayers：IntegerreadGetLayerswriteSetLayersdefault1；<br>
end；<br>
每个属性都需要相应的private变量用于内部存储。按照约定，变量名以F打头，后跟属性名（此处为Layers），读写方法名称分别为Get加属性名和Set加属性名。写方法总是带一个与属性类型相同的参数，用以传送属性值。此参数可以传值，也可以传递变量。如果不定义写方法（省略write部分），此属性便成为只读属性。读写方法应该在private部分声明，以使其对构件用户和构件的派生对象保持隐蔽。<br>
读写方法除了取值和赋值之外，还可以附加其他操作代码，使属性读写产生附加效应。这正是属性可以取代方法的原因。如果不需要附加效应，可以不定义读写方法，采用直接访问格式来声明属性：<br>
propertyLayers：IntegerreadFLayerswriteFLayersdefault1；<br>
default命令符用来指定属性的默认值，同时需要在构件的构造函数中为属性设置初值。default命令的作用是在窗体文件存盘时提供参照：若属性当前值与default命令指定的值不同，则把当前值保存在文件中，否则便无需保存。如果省略default命令，属性当前值总是保存在窗体文件中。<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -