Delphi 给自定义控件添加属性页

一、基础知识介绍：

1、属性编辑器和控件属性的关联函数：

RegisterPropertyEditor函数：它用来注册一个属性编辑器，将控件中的一个属性和编辑器关联起来。

procedure RegisterPropertyEditor(PropertyType: PTypeInfo; ComponentClass: TClass; const PropertyName:string; EditorClass: TPropertyEditorClass);

1>、PropertyType：PTypeInfo。它是一个指针，指向要编辑的属性的运行期类型信息。我们通过TypeInfo()获取（TypeInfo（string））。

2>、Component: Calss。用于指定这个属性编辑器所作用的组件类（TMyDataBaseEdit）；

3>、const PropertyName: string。是一个字符串，用于指定被作用属性的名称。

4>、EditorClass: TPropertyEditorClass。用于指定属性编辑器的类型。

利用RegisterPropertyEditor函数，就可以把一个组件分成两个包：一个设计期包和一个运行期包，减少代码的膨胀。

二、创建设计包：

在自定义控件添加一列属性，在属性编辑浏览器中出现一项属性（XAbout），右侧显示:（XAbout）… ,点击“…”按钮弹出一个对话框。

具体步骤：

1、下面我们开始新建一个Package，按照命名规则起名：MyDataEditDsgn60.Dpk，

2、然后新建一个Form（TFrmAbout）,作为XAbout对话框，我们可以根据需要自行设计界面。

3、在MyDataEditDsgn60.Dpk的requires后面加上：DesignIDE。(不然可能会遇到问题“File not found Proxies.dcu”)

4、在TFrmAbout窗体类的下面新建一个类TAboutEditor，使其从TPropertyEditor下继承过来：

TAboutEdit = class(TPropertyEditor) //属性编辑器。Uses DesignEditors;

private

FFrmAbout: TFrmAbout;

public

function GetAttributes: TPropertyAttributes;override; //Uses DesignIntf

function GetValue: string;override;// 覆盖GetAttributes函数：告诉IDE将以何种工作方式进行显示

procedure Edit;override;// 覆盖Edit函数：用来创建销毁窗体对象。

end;

注意：将全局的变量(FrmAbout: TFrmAbout)删掉，重新在TAboutEdit类中声明一个新的私有变量。

5、实现各个控制函数函数:（如果想进一步控制，还可以在研究TPropertyEditor类的代码）

1>、覆盖Edit函数：用来创建销毁窗体对象。

procedure TAboutEdit.Edit;

begin

FFrmAbout := TfrmAbout.Create(Application);

FFrmAbout.ShowModal;

FreeAndNil(FFrmAbout);

end;

2>、覆盖GetAttributes函数：告诉IDE将以何种工作方式进行显示

function TAboutEdit.GetAttributes: TPropertyAttributes;

begin

Result := [paDialog,paReadOnly];//以只读对话框的方式显示的

end;

关于TPropertyAttributes可以参考帮助看看。我们这里是以只读对话框的方式显示的，【ObjectInspector】将在About属性旁边出现一个省略号按钮。当用户单击这个按钮，就调用Edit方法。

3>、覆盖GetValue函数，是为了省略号按钮旁出现“(About)”的字样，并且只读。

function TAboutEdit.GetValue: string;

begin

Result := '(About)'

end;

三、把上面的编辑器和控件关联起来

1、在窗体TFrmAbout的单元文件里添加注册属性的代码；

1>、在implementation的前面添加代码： procedure Register; //注册构件

2>、在implementation的后面添加代码：

procedure Register;

begin

//前提是组件面板中已经存在TMyDataBaseEdit自定义控件，它存在XAbout这个属性，属性类型为String型；

//将TAboutEdit与属性XAbout关联起来

RegisterPropertyEditor(TypeInfo(string),TMyDataBaseEdit,'XAbout',TAboutEdit);

end;

假如第二个参数设为nil,第三个参数设为空串，RegisterPropertyEditor(TypeInfo(string),nil,'',TAboutEdit);所有string类型的属性全部变成About框了。（呵呵，理论上是这么回事，但是实际上根本不是。）把窗体TFrmAbout做成一个复杂的有返回值的对话框，这样我们就可以真正用对话框来编辑控件的属性了。