谁给我个组件开发的例子（原理即可）！
多谢了！ 问题点数：100、回复次数：9Top
1 楼rabbit1125（兔子）回复于 2001-10-19 21:19:40 得分 50
Delphi作为RAD工具，以其快速编译和友好的可视化界面受到广泛欢迎。Delphi提供了很多现成构件，而且随着版本更新不断增加新构件。另外还可以买到第三方开发的特色构件，或从因特网下载免费构件。这些构件足以支持一般应用系统开发。但应用开发人员仍有必要自己制作构件。采用构件形式可以把对象严密封装，并加上一层直观外壳，有利于软件调试和代码重用。开发群体以构件为功能单位分工协作，比较容易实现工程化管理，从软件规划设计到测试修改都可以减少意外差错，大大提高工作效率。成熟的构件还可以作为商品软件出售，带来附加效益，且有利于软件开发的社会化分工协作。Delphi的构件使用和构件制作采用同样的工作环境和相似的编程方法，只要弄清基本原理，制作构件无需学习多少新东西。
基本概念
制作构件的基本过程可以概括为：
1．编写构件单元（unit）。其中包含构件声明和构件实现代码。
2．按照与普通Delphi单元同样的方法编译和调试构件单元。
3．创建构件注册单元。其中用uses语句连接构件单元，并用Register过程完成构件的注册。
4．编写构件联机帮助信息，并编译成标准Windows帮助文件。全部工作完成后，生成构件单元二进制文件（．DCU）、构件注册源文件（．PAS）和帮助信息文件（．HLP）及附加的关键词文件（．KWF）。用户拿到这些文件后，就可以安装使用了。在Delphi环境下调用菜单命令，启动安装过程（安装过程中需指定注册文件名），可以把构件注册到Delphi的VCL库中，并在构件工具条上生成一个新按钮。借助HelpInst安装工具可以把关键词文件并入Dephi帮助索引系统，用F1键实现联机帮助。这样制作出的．DCU文件与一般Delphi单元没有根本区别，即使不安装到VCL库中也可以由其他单元直接调用。最大的区别在于：构件单元中某些属性和事件声明为published，从而在程序设计期对用户是可见的，用户可以通过对象编辑窗口（ObjectInspector）访问这些属性和事件。这是可视化程序设计的关键所在。
对象的继承与修改
制作构件第一件事就是选择适当的Delphi对象类型作为父对象，以派生新的对象。子对象可以继承父对象的全部非private部件，但不能摆脱不需要的部件。因此，所选父对象应尽可能多地包含子对象所需的属性、事件和方法，但不应包含子对象不需要的东西。
TComponent是所有Delphi构件的基点，但若直接从TComponent派生新构件，很多东西就需要自己从头做起。一般只有非可视构件才直接从TComponent派生。Delphi提供了若干专门用于制作控件（可视构件）的对象类型，都是从TControl和TWinControl派生而来。其派生关系如下：
TControl－－－TGraphicControl－－－TCustomLabel
TWinControl－－TCustomControl－－－TCustomGrid
－－－TButtonControl－－TCustomGroupBox
－－－TScrollingWinControl－－TCustomPanel
－－－TCustomComboBox
－－－TCustomEdit
－－－TCustomListBox
TControl的子类型用于非窗口式控件，TWinControl的子类型则用于窗口式控件。除非特殊需要，一般不直接从TControl和TWinControl派生新控件，而是从其子类型派生。这样可以充分利用原有的属性、事件和方法，减少很多工作量。
在这些构件类型中，非通用的属性、事件和方法都声明为protected。这样可以禁止构件用户访问，又能被子类型继承和修改。在新构件中，可以简单地把继承来的属性和事件重新声明为published，使构件用户能在设计期通过对象编辑窗口访问，也可以进而修改属性的默认值和读写方式，或是重载（override）事件处理子过程和其他构件方法，以修改其中的程序代码。重声明可以放宽访问权限，但不能相反，例如，不可能把published属性重声明为private或protected。
为了增加新功能，常常需要定义全新的属性、事件和方法。定 义时，一般总是把对用户开放的属性和事件声明为published，把方法声明为public或protected。
构件属性
在构件中，属性和方法往往可以相互替代。对构件用户来说， 属性比方法更直观简便。因此，只要可能，应尽量以属性取代方法。
属性类型包括简单类型（numeric，character，string）、枚类型、集合类型、对象类型（例如font）和数组类型（例如TStrings 类型中的Strings）。其定义方法如下：
type
private
FLayers：Integer；｛内部存储用的变量｝
functionGetLayers：Integer；｛用来读属性值的方法｝
procedureSetLayers（ALayers：Integer）；｛用来写属性值的
方法｝
published
propertyLayers：
IntegerreadGetLayerswriteSetLayersdefault1；
end；
每个属性都需要相应的private变量用于内部存储。按照约 定，变量名以F打头，后跟属性名（此处为Layers），读写方法名称分别为Get加属性名和Set加属性名。写方法总是带一个与属性 类型相同的参数，用以传送属性值。此参数可以传值，也可以传递变量。如果不定义写方法（省略write部分），此属性便成为只读 属性。读写方法应该在private部分声明，以使其对构件用户和构件的派生对象保持隐蔽。
读写方法除了取值和赋值之外，还可以附加其他操作代码，使属性读写产生附加效应。这正是属性可以取代方法的原因。如果不需要附加效应，可以不定义读写方法，采用直接访问格式来声明属性：
propertyLayers：
IntegerreadFLayerswriteFLayersdefault1；
default命令符用来指定属性的默认值，同时需要在构件的构 造函数中为属性设置初值。default命令的作用是在窗体文件存盘时提供参照：若属性当前值与default命令指定的值不同，则把当 前值保存在文件中，否则便无需保存。如果省略default命令，属性当前值总是保存在窗体文件中。
事件与事件处理过程
创建构件时，事件也被当做属性来处理，区别仅在于事件必须 定义为过程类型，使其成为一个隐蔽指针，指向某个潜在的过程。
当构件用户为事件指定处理子程序后，事件便成为指向该子程序的 指针。事件的定义方式如下：
type
private
FOnClick：TNotifyEvent；｛声明事件变量以保存过程指针｝
published
propertyOnClick：
TNotifyEventreadFOnClickwriteFOnClick；
end；
此例正是Delphi标准控件中Click事件的定义方式。可以看出，除了OnClick被定义为过程类型外，其定义格式与一般属性的直接访问格式几乎完全相同。Delphi预定义了所有标准事件的过程类型及标准事件所引发的虚方法。其中，Click事件将引发如下虚方法：
procedureTControl．Click；
begin
ifAssigned（OnClick）thenOnClick（Self）；
｛以下是默认处理部分｝
end；
其中，Assigned函数检验OnClick是否已分配了事件处理过 程。如果返回值为True，则调用用户指定的事件处理过程。通过重载此虚方法，可以修改Click事件的处理方式。在重载的方法中， 一般应先调用用户处理程序，然后再安排后续处理。在本例中，首行代码应当是inheritedClick。 需要注意的是，构件用户不一定会给事件指定处理程序，因此事件不能定义为函数类型，否则可能会指向返回值类型不定的空函 数。如果需要事件处理过程返回某个值，可以借助var参数。调用用户程序之前应确保此参数包含有效返回值，以免用户未指定事件 处理过程时出错。 如果Delphi标准事件不能满足需要，也可以自己定义事件。
其核心思想是选择适当的Windows消息来引发构件中的事件过程。 篇幅所限，不拟详述，请读者参阅有关资料。
方法处理要点
方法处理在创建构件时和使用构件时没有多大区别，但有些问 题仍需要注意。 首先要注意的是，构件通常是在事件处理过程中调用，而构件作者又无法预测用户将在什么环境下如何调用构件。因此，构件中 的方法应尽量避免占用系统资源，避免使Windows停止对用户操作 的反应。
创建构件时应随时意识到，此构件不仅可以直接调用，而且可 用来创建别的构件。即使是对用户隐蔽的方法也应具有完整的功能和清晰的接口。除了属性读写方法之外，内部方法一般应声明为 protected虚方法，以便被派生对象继承和重载。属性读写方法则应采用private声明严密保护。派生对象如果需要读写父对象的属 性值，应该访问属性本身，没有必要直接访问其读写方法。
构件测试
制作构件的核心工作是编写构件单元，包括根据构件功能要求 设定对用户开放的属性、事件和方法，设定用以实现这些部件的变量、过程和函数等等。除了属性和事件有 特殊格式之外，构件 单元的设计方式与一般Delphi单元没有什么不同，只是单元中不 能包含窗体。
在编写构件单元的过程中，可以借助一个测试窗体直接对其测 试。以可视化方法在窗体上安排构件，本质上不过是自动生成调用构件的代码。即使构件未并入VCL库，无法使用可视化操作，也可 以手工编写这些调用代码。这样测试，可以免去反复修改而导致的 反复安装。
测试时，需先建立一个窗体单元，然后进行以下操作：
1．把被测构件单元名称加入窗体单元的uses语句中，并在 public部分声明被测构件的对象实例。
2．在窗体单元的FormCreate子程序中调用被测构件的Create方法，以构造构件实例，其Owner参数设置为Self，即窗体本身。 然后给Parent属性赋值，并适当设置其他属性值。Parent是容纳构件的父对象，如果是窗体本身，应设置为Self。
3．运行包含测试窗体的工程，找出构件程序中的错误。
注册构件
注册构件用的程序代码可以放在构件单元中，但在Delphi下
注册构件时要求提供包含注册代码的源程序文件（．PAS文件），因此，比较好的方式是把构件核心代码编译成．DCU文件或．DLL动态链接库，在注册源文件中只放注册代码和外围程序。下面是注 册代码实例：
type
TMyPanelΚclass（TCustomPanel）
TMyLabelΚclass（TCustomLabel）
procedureRegister；
implementation
procedureRegister；
begin
RegisterComponents（′Samples′，［TMyPanel，TMyLabel］）；
end；
注册过程名必须是Register。过程体中调用Register Compnents，其中的两个参数分别指定Delphi构件工具条页名和要 注册的构件类型。如果指定页不存在，Delphi将创建一个新页。
Delphi环境提供了一个构件生成器（componentexpert）， 可用来自动生成注册单元。
构件工具条上每个构件需要一个24×24点阵bitmap图标。图标可以借助Delphi的ImageEditor编辑生成，以．DCR资源文件 的形式提供给构件用户，文件与注册单元文件相同。如果不提供此文件，Delphi将采用默认图标。
提供联机帮助
一个成熟的构件，无论是用于开发群体还是用做商品软件，都 要有联机帮助信息才能正常使用。Delphi的帮助信息与Windows一般帮助信息结构基本上相同，其编写方法可参见有关资料。但 Delphi包含一个特殊的帮助搜索引擎，能跨越多个帮助文件搜索关键词。因此，在构件帮助文件中不仅要有普通K型关键词脚注， 还要包含Delphi所用的B型关键词脚注。脚注内容有如下约定：
在Delphi的对象编辑窗口和代码编辑窗口中，用F1键可以引 发帮助搜索引擎，通过B型关键词调出有关帮助主题。为了实现这种帮助机制，需借助KeywordGenerate程序来生成关键词文件 （．KWF），与帮助信息文件（．HLP）一起交给构件用户。用户借助HelpInst程序把关键词文件内容并入Delphi主帮助索引文件 （．HDX）中。
构件联机帮助信息应当与Delphi标准构件帮助信息格式相 同。编写帮助文件时最好遵循如下约定：
1．每个构件有一个单独的帮助主题（Topic），内容包含构件 简介及用户可见的属性、事件和方法列表。
2．新增的及修改较大的属性、事件和方法均应有单独的帮助 主题，其中应包含所属构件、用途、声明格式等内容。
3．每个帮助主题都应包含K型脚注，以便用F1键引发。 Top
2 楼rabbit1125（兔子）回复于 2001-10-19 21:21:01 得分 0
怎么样？够了吧？
给分吧！^-^Top
3 楼eternalee（看看）回复于 2001-10-19 21:21:44 得分 50
DELPHI环境中组件的创建技巧
DELPHI环境中组件的创建技巧
河南金融管理干部学院计算机教研室--陈学军
一、创建组件
从应用程序员的角度，即从某些使用组件去创建应用程序的人的角度看，组件是你能从组件板上选取，作为正在开发的应用程序的一部分，并编写事件处理代码使之成为专用。对一个组件开发者，DELPHI组件是一个直接地或间接地从TCOMPONENT派生的对象PASCAL类。
用DELPHI成功地开发和综合专用组件的关键是，它能够服从界面的各种需要和习惯以及DELPHI环境所期望组件的行为。
专用组件是一个对象PASCAL类，这个对象类是TCOMPONENT的后代，这使它本身就服从基本需要的大部分。例如，它给新组件出现在组件板上的能力，并且有能力与窗体设计者（FORM DESIGNEER）和对象检查器（OBJECT INSPECTOR）相互作用。可是，除了这些基本功能外，组件还可以定义任意复杂的行为和可以显示任意丰富的属性集给组件用户或应用程序员。这些对组件的标准及基本行为的扩充是组件编写者的责任。
要记住，有关专用组件最重要的事情是你可以用不同的方法来制作组件。几乎每一个做好的组件在设计和运用时通过它的属性和事件允许某中程度的专门化。但是，不可避免，你将触及到有关每个组件的限制或缺点。实际上，你需要一种特殊的组件编写者并没有预见的行为，给组件扩展新能力。或者，你需要使组件做某些根本不同的，在开始设计时并没有决定要做的事情。
二、扩展已有专用组件
在DELPHI中创建新组件的最容易的方法是通过对已存在组件类派生。你能使用任何DELPHI具有的标准组件作为派生你自己组件的基础。
例如，你可能要修改标准组件的某个特定属性的缺省值，使得这个缺省值在你将此组件放置到窗体上时自动地起作用。如果你发现你经常在运行时使用相同的方法调用序列去启动组件，或者，你发现只要你放置这个组件在窗体上后你就打算修改属性值，这可能是创建新组件的好机会，这个组件将通过缺省做所有事情，并且因此不需要将其放置在窗体上后做专门的初始化。
另外一个使你要定制一个已存在的可视控制的理由是，在某些标准窗口控制情形，例如编辑框和组合框，你可能想使用它们的一些非常规特征。为此，你必须在创建时设置专门的可选标志，以告知WINDOWS你需要建立一个专用控制，重载WINDOWS用于决定控制可视外观的创建属性。
三、创建从非专有类中派生一个新组件
创建一个“全新”可视组件仍然要从已存在VCL类中派生。扩展一个已有专用组件和创建一个全新组件之间的主要差别是，在后一种情况，你必须从一个非专用基类中派生，例如TWINCONTROL或TGRAPHICCONTRL，而不是从一个专用控制类派生，例如TLABLE，TMEMO或TCHECKBOX。
从非专用基类派生，确定将很多责任交到了组件创建者的手中。你必须关心组件与程序用户相互之间的细节和设计时界面的细节。
当你创建新组件时，你存取了一个对象的保护界面，这个界面是组件用户不可见的。对象PASCAL在类元素上定义4层保护，或成存取控制：私用的（private）、保护的(protected)、公共的(public)、和发表的(published)。通过指定保护层次，你能控制类元素被存取的上下文：谁可以从代码的那一块对它们存取。
组件用户可以存取实例的公共的和发表的元素。组件编写者，至少可以存取发表的，公共的和保护的元素。另外，如果派生类是与基础类被定义在同一个编译单元中，私有的元素也可以存取。
将类元素声明为私有的是隐藏它们的实现细节，与存取定义单元外的类实例的客户代码分开。将类元素作为私有的，使类的界面（发表的、公共的、保护的元素）与类的实现分开。这样，你可以在后来修改其实现而毫不影响客户代码。类用户自由地存取公共可用的元素而不必关心实现的细节。
可是，组件编写者的情况则多少有些进退两难。一方面，他们必须存取类实现的细节，以便修改或增强其父类提供的行为。另一方面，编写者是从一个已有组件派生新类，因此他也是组件的用户。从这个意义上讲，他应尽可能多地直接使用基础类，而不关心基础类实现的细节。
对象中这个两难问题是用提供保护界面解决的。存取控制的保护层恰恰给后继组件编写者足够的存取权，以便通过可能的继承方法扩展和修改组件。类对外部世界或对组件用户的封装仍然保持没有被析构，因此类封装的好处没有丢失。
当你派生新组件类时的主要考虑是决定哪个类是新类的父类。你必须研究已存在类的层次，以决定保护界面的哪些方面你要继承，而哪些方面你是不需要的。但是，一旦一个特殊类元素是公共的，它就不能成为私用的或保护的。类似地，一旦类元素已是发表的，它就保持发表状态，并且在所有那个类后代中都可以从对象视察器窗口可见。
四、创建组件示例
该例子说明的是：如何从一个已存在的专用类TDBText派生一个新组件类，通过增加BorderStyle属性以及重载PAINT事件产生一个类似TSTATICTEXT组件。具体实现如下：
首先选择Component/New Component； Ancestor Type：选择TDBText； Class Name：可以自己任意制定，这里为TDBStaticText；Palette Page：可以自己任意制定，这里为MyComponents；Unit File Name：可以自己任意制定，这里为c:my documents\dstatictext1.pas;Search path:为缺省值。选择 OK 之后，请输入以下源程序。
以上全部作完后保存你的新组件，选择Component/Install Component 并编译你的新组件。你将有一个名称为MyComponents 的新组件板，其中就有你刚制作的新组件TDBStaticText。
<源程序>
unit DBStaticText;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, DBCtrls;
type
TDBStaticBorderStyle = (sbsNone,sbsSingle,sbsSunken,sbsRaised);
TDBStaticText = class(TDBText)
private
{ Private declarations }
fBorderStyle : TDBStaticBorderStyle;
function GetBorderStyle:TDBStaticBorderStyle;
procedure SetBorderStyle(Value:TDBStaticBorderStyle);
protected
{ Protected declarations }
procedure Paint; override;
public
{ Public declarations }
published
{ Published declarations }
property BorderStyle : TDBStaticBorderStyle
read GetBorderStyle
write SetBorderStyle;
end;
procedure Register;
implementation
function TDBStaticText.GetBorderStyle:TDBStaticBorderStyle;
begin
Result := fBorderStyle
end;
procedure TDBStaticText.SetBorderStyle(Value:TDBStaticBorderStyle);
begin
if fBorderStyle <> Value then
begin
fBorderStyle := Value;
Invalidate;
end;
end;
procedure TDBStaticText.Paint;
var
Rect : TRect;
begin
// 设置颜色
Canvas.Brush.Color := Color;
// 获取长方形面积
Rect := GetClientRect();
// 用 DrawEdge API 画不同的边界
case fBorderStyle of
sbsSingle : DrawEdge(Canvas.Handle,Rect,EDGE_RAISED,BF_RECT+BF_FLAT);
sbsRaised : DrawEdge(Canvas.Handle,Rect,EDGE_RAISED,BF_RECT);
sbsSunken : DrawEdge(Canvas.Handle,Rect,EDGE_SUNKEN,BF_RECT);
end;
// 填充颜色
InflateRect(Rect,-2,-2);
Canvas.FillRect(Rect);
// 置文本对齐方式
case Alignment of
taLeftJustify : DrawText(Canvas.Handle,PChar(GetLabelText),-1,Rect,DT_LEFT + DT_VCENTER + DT_SINGLELINE);
taRightJustify : DrawText(Canvas.Handle,PChar(GetLabelText),-1,Rect,DT_RIGHT + DT_VCENTER + DT_SINGLELINE);
taCenter : DrawText(Canvas.Handle,PChar(GetLabelText),-1,Rect,DT_CENTER + DT_VCENTER + DT_SINGLELINE);
end;
end;
procedure Register;
begin
RegisterComponents('MyComponents', [TDBStaticText]);
end;
end.
以上代码在win98/Delphi5环境下调试通过。
Top
4 楼summernightrain（夏夜雨）回复于 2001-10-19 21:26:43 得分 0
delphi 里关于组件的例子一大堆，还有很多第三方控件，看都看不完的。Top
5 楼lmh79（阿楚）回复于 2001-10-20 08:47:43 得分 0
多谢几位！
Top
6 楼7680（周周）回复于 2001-10-20 10:51:24 得分 0
替你up一下，给点分吧，反正不能给自己Top
7 楼lmh79（阿楚）回复于 2001-10-20 14:30:10 得分 0
当然要给！Top
8 楼gaden007（斌）回复于 2001-10-20 15:41:05 得分 0
upTop
9 楼yuanzmeng（虛空）回复于 2001-10-20 15:46:30 得分 0
写得太多了，很难看.Top
