我在网上找到一段代码,想将它制作成控件,应该怎做?代码如下:unit BmpShape;
{
2002/08/22 by ultrared
根据BMP文件创建窗口
注意:
1. BMP文件最左上的一个点颜色作为背景色
2. BmpShape控件只能用在TForm容器上
3. BMP文件可以是256色或者24位色
4。大块背景色必须和背景色绝对相等才能获得正常效果
}
interfaceuses
Forms,Windows, Messages, SysUtils, Classes, Controls, ExtCtrls,Graphics;type
TBmpShape = class(TImage)
private
{ Private declarations }
BackColor:TColor;//背景颜色
FColorDither:boolean;//是否允许背景颜色有一定的抖动
function GetRegion:HRGN;//前景图片的区域
procedure setColorDither(cd:Boolean);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
procedure Apply;//使用效果
published
{ Published declarations }
property Dither:Boolean read FColorDither write setColorDither;
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TBmpShape]);
end;procedure TBmpShape.setColorDither(cd:Boolean);
begin
if cd<>FColorDither then
FColorDither:=cd;
end;constructor TBmpShape.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
BackColor:=RGB(0,0,0);
FColorDither:=FALSE;
end;//核心子程序,获得BMP图片的前景区域
function TBmpShape.GetRegion:HRGN;
var
i,j:integer;
rgn1,rgn2:HRGN;
StartY:integer;
r,g,b,r1,g1,b1:BYTE;
cc:TColor;
begin
if Picture.Bitmap<>nil then
begin
BackColor:=Picture.Bitmap.Canvas.Pixels[0,0];
rgn1:=CreateRectRgn(0,0,0,0);
for i:=0 to Picture.Bitmap.Width-1 do
begin
StartY:=-1;
for j:=0 to Picture.Bitmap.Height-1 do
begin
cc:=Picture.Bitmap.Canvas.Pixels[i,j];
if FColorDither then
begin
//允许和背景有一定的色差
r:=(cc and $FF0000) shr 16;
g:=(cc and $FF00) shr 8;
b:=cc and $FF;
r1:=(BackColor and $FF0000) shr 16;
g1:=(BackColor and $FF00) shr 8;
b1:=BackColor and $FF;
if (abs(r-r1)<10) and (abs(g-g1)<10) and (abs(b-b1)<10) then
begin
if (StartY>=0) and (j>=StartY) then
begin
rgn2:=CreateRectRgn(i,StartY,i+1,j);
CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
StartY:=-1;
end;
end
else
begin
if Starty<0 then
StartY:=j
else if j=(Picture.Bitmap.Height-1) then //最下面一个点
begin
rgn2:=CreateRectRgn(i,StartY,i+1,j);
CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
end;
end;
end
else //不允许色差
begin
if cc=BackColor then
begin
if (StartY>=0) and (j>=StartY) then
begin
rgn2:=CreateRectRgn(i,StartY,i+1,j);
CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
StartY:=-1;
end;
end
else
begin
if Starty<0 then
StartY:=j
else if j=(Picture.Bitmap.Height-1) then //最下面一个点
begin
rgn2:=CreateRectRgn(i,StartY,i+1,j);
CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
end;
end;
end;
end;
end;
result:=rgn1;
end
else
result:=0;
end;procedure TBmpShape.Apply;
begin
if Parent is TForm then
begin
Left:=0;
Top:=0;
Width:=Picture.Bitmap.Width;
Height:=Picture.Bitmap.Height;
with (Parent as Tform) do
begin
BorderStyle:=bsNone;
Width:=Self.Width;
Height:=Self.Height;
end;
SetWindowRgn(Parent.Handle,GetRegion,FALSE);
end;
end;end.
{
2002/08/22 by ultrared
根据BMP文件创建窗口
注意:
1. BMP文件最左上的一个点颜色作为背景色
2. BmpShape控件只能用在TForm容器上
3. BMP文件可以是256色或者24位色
4。大块背景色必须和背景色绝对相等才能获得正常效果
}
interfaceuses
Forms,Windows, Messages, SysUtils, Classes, Controls, ExtCtrls,Graphics;type
TBmpShape = class(TImage)
private
{ Private declarations }
BackColor:TColor;//背景颜色
FColorDither:boolean;//是否允许背景颜色有一定的抖动
function GetRegion:HRGN;//前景图片的区域
procedure setColorDither(cd:Boolean);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
procedure Apply;//使用效果
published
{ Published declarations }
property Dither:Boolean read FColorDither write setColorDither;
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TBmpShape]);
end;procedure TBmpShape.setColorDither(cd:Boolean);
begin
if cd<>FColorDither then
FColorDither:=cd;
end;constructor TBmpShape.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
BackColor:=RGB(0,0,0);
FColorDither:=FALSE;
end;//核心子程序,获得BMP图片的前景区域
function TBmpShape.GetRegion:HRGN;
var
i,j:integer;
rgn1,rgn2:HRGN;
StartY:integer;
r,g,b,r1,g1,b1:BYTE;
cc:TColor;
begin
if Picture.Bitmap<>nil then
begin
BackColor:=Picture.Bitmap.Canvas.Pixels[0,0];
rgn1:=CreateRectRgn(0,0,0,0);
for i:=0 to Picture.Bitmap.Width-1 do
begin
StartY:=-1;
for j:=0 to Picture.Bitmap.Height-1 do
begin
cc:=Picture.Bitmap.Canvas.Pixels[i,j];
if FColorDither then
begin
//允许和背景有一定的色差
r:=(cc and $FF0000) shr 16;
g:=(cc and $FF00) shr 8;
b:=cc and $FF;
r1:=(BackColor and $FF0000) shr 16;
g1:=(BackColor and $FF00) shr 8;
b1:=BackColor and $FF;
if (abs(r-r1)<10) and (abs(g-g1)<10) and (abs(b-b1)<10) then
begin
if (StartY>=0) and (j>=StartY) then
begin
rgn2:=CreateRectRgn(i,StartY,i+1,j);
CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
StartY:=-1;
end;
end
else
begin
if Starty<0 then
StartY:=j
else if j=(Picture.Bitmap.Height-1) then //最下面一个点
begin
rgn2:=CreateRectRgn(i,StartY,i+1,j);
CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
end;
end;
end
else //不允许色差
begin
if cc=BackColor then
begin
if (StartY>=0) and (j>=StartY) then
begin
rgn2:=CreateRectRgn(i,StartY,i+1,j);
CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
StartY:=-1;
end;
end
else
begin
if Starty<0 then
StartY:=j
else if j=(Picture.Bitmap.Height-1) then //最下面一个点
begin
rgn2:=CreateRectRgn(i,StartY,i+1,j);
CombineRgn(rgn1,rgn1,rgn2,RGN_OR);
end;
end;
end;
end;
end;
result:=rgn1;
end
else
result:=0;
end;procedure TBmpShape.Apply;
begin
if Parent is TForm then
begin
Left:=0;
Top:=0;
Width:=Picture.Bitmap.Width;
Height:=Picture.Bitmap.Height;
with (Parent as Tform) do
begin
BorderStyle:=bsNone;
Width:=Self.Width;
Height:=Self.Height;
end;
SetWindowRgn(Parent.Handle,GetRegion,FALSE);
end;
end;end.
解决方案 »
- 请问一下,如何让程序的窗口在任务栏上显示,并能自由切换。
- ClientDataSet的providername属性怎样在代码中赋值?
- 如何用delphiX画线?
- TREEVIEW問題
- 很简单的ACCESS 数据库中的时间查询
- !!!如何动态获取某个类的所有方法/属性,并调用/访问之, 像Java中的反射一样? 800分赠送!
- 如何控制QReport的返回值 怎末控制用户点击“print”或"close" 的返回值
- 怎样捕获异常?急,解决即给分
- 按F9编译运行时经常出现致命错误!!
- 用了SkinData后edit不能选中
- 在线求救,如何在用户端不用装oracle的客户端就能访问服务器端的oracle数据库呢
- 这个这个…… 第三次问csdn的问题
http://www.delphijs.com/Article_Print.asp?ArticleID=130
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--- TCustomLabelTWinControl-- TCustomControl--- TCustomGrid--- TButtonControl-- TCustomGroupBox--- TScrollingWinControl-- TCustomPanel--- TCustomComboBox--- TCustomEdit--- TCustomListBoxTControl的子类型用于非窗口式控件, TWinControl的子类型则用于窗口式控件。除非特殊需要,一般不直接从 TControl和TWinControl派生新控件,而是从其子类型派生。这样可以充分利用原有的属性、事件和方法,减少很多工作量。在这些构件类型中,非通用的属性、事件和方法都声明为 protected。这样可以禁止构件用户访问,又能被子类型继承和修改。在新构件中,可以简单地把继承来的属性和事件重新声明为 published,使构件用户能在设计期通过对象编辑窗口访问,也可以进而修改属性的默认值和读写方式,或是重载( override)事件处理子过程和其他构件方法,以修改其中的程序代码。重声明可以放宽访问权限,但不能 相反,例如,不可能把 published属性重声明为 private或 pro tected。为了增加新功能,常常需要定义全新的属性、事件和方法。定义时,一般总是把对用户开放的属性和事件声明为 published,把方法声明为 public或 protected。构件属性在构件中,属性和方法往往可以相互替代。对构件用户来说,属性比方法更直观简便。因此,只要可能,应尽量以属性取代方法。 属性类型包括简单类型( numeric, character, string)、枚举类型、集合类型、对象类型(例如 font)和数组类型(例如 TStrings 类型中的 Strings)。其定义方法如下:typeprivateFLayers: Integer;{内部存储用的变量}functionGetLayers: Integer;{用来读属性值的方法}procedureSetLayers( ALayers: Integer);{用来写属性值的方法}publishedpropertyLayers:IntegerreadGetLayerswriteSetLayersdefault1;end;每个属性都需要相应的 private变量用于内部存储。按照约定,变量名以 F打头,后跟属性名(此处为 Layers),读写方法名称分别为 Get加属性名和 Set加属性名。写方法总是带一个与属性类型相同的参数,用以传送属性值。此参数可以传值,也可以传递变量。如果不定义写方法(省略 write部分),此属性便成为只读属性。读写方法应该在 pri vate部分声明,以使其对构件用户和构件的派生对象保持隐蔽。读写方法除了取值和赋值之外,还可以附加其他操作代码,使属性读写产生附加效应。这正是属性可以取代方法的原因。如果不需要附加效应,可以不定义读写方法,采用直接访问格式来声明属性:propertyLayers:IntegerreadFLayerswriteFLayersdefault1;default命令符用来指定属性的默认值,同时需要在构件的构造函数中为属性设置初值。 default命令的作用是在窗体文件存盘时提供参照:若属性当前值与 default命令指定的值不同,则把当前值保存在文件中,否则便无需保存。如果省略 default命令,属性当前值总是保存在窗体文件中。事件与事件处理过程创建构件时,事件也被当做属性来处理,区别仅在于事件必须定义为过程类型,使其成为一个隐蔽指针,指向某个潜在的过程。当构件用户为事件指定处理子程序后,事件便成为指向该子程序的指针。事件的定义方式如下:typeprivateFOnClick: TNotifyEvent;{声明事件变量以保存过程指针}publishedpropertyOnClick:TNotifyEventreadFOnClickwriteFOnClick;end;
此例正是 Delphi标准控件中 Click事件的定义方式。可以看出,除了 OnClick被定义为过程类型外,其定义格式与一般属性的直接访问格式几乎完全相同。 Delphi预定义了所有标准事件的过程类型及标准事件所引发的虚方法。其中, Click事件将引发如下虚方法:procedureTControl. Click;beginifAssigned( 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 动态链接库,在注册源文件中只放注册代码和外围程序。下面是注册代码实例:typeTMyPanelΚ class( TCustomPanel)TMyLabelΚ class( TCustomLabel)procedureRegister;implementationprocedureRegister;beginRegisterComponents(′ Samples′,[ TMyPanel, TMyLabel]);end;注册过程名必须是 Register。过程体中调用 Register Compnents,其中的两个参数分别指定 Delphi构件工具条页名和要注册的构件类型。如果指定页不存在, Delphi将创建一个新页。Delphi环境提供了一个构件生成器( componentex pert), 可用来自动生成注册单元。构件工具条上每个构件需要一个 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键引发。
发表:2004-4-8 19:51:07 出处:你的博客网(yourblog.org)
--------------------------------------------------------------------------------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或 pro tected。 为了增加新功能,常常需要定义全新的属性、事件和方法。定义时,一般总是把对用户开放的属性和事件声明为 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部分),此属性便成为只读属性。读写方法应该在 pri vate部分声明,以使其对构件用户和构件的派生对象保持隐蔽。 读写方法除了取值和赋值之外,还可以附加其他操作代码,使属性读写产生附加效应。这正是属性可以取代方法的原因。如果不需要附加效应,可以不定义读写方法,采用直接访问格式来声明属性: propertyLayers:
IntegerreadFLayerswriteFLayersdefault1; default命令符用来指定属性的默认值,同时需要在构件的构造函数中为属性设置初值。 default命令的作用是在窗体文件存盘时提供参照:若属性当前值与 default命令指定的值不同,则把当前值保存在文件中,否则便无需保存。如果省略 default命令,属性当前值总是保存在窗体文件中。 [事件与事件处理过程]
创建构件时,事件也被当做属性来处理,区别仅在于事件必须定义为过程类型,使其成为一个隐蔽指针,指向某个潜在的过程。 当构件用户为事件指定处理子程序后,事件便成为指向该子程序的指针。事件的定义方式如下: type
private
FonClick: TNotifyEvent;{声明事件变量以保存过程指针}
published
propertyonClick:
TNotifyEventreadFonClickwriteFonClick;
end;
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环境提供了一个构件生成器( componentex pert), 可用来自动生成注册单元。 构件工具条上每个构件需要一个 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键引发。