Delphi Open Tools API 浅探 元件编辑器i.docx

问题：DelphiOpenToolsAPI浅探-元件编辑器(积分：100,回复：13,阅读：154)

分类：ObjectPascal(版主：menxin,cAkk)

来自：savetime,时间：2004-1-282:54:00,ID：2424123DelphiOpenToolsAPI浅探-元件编辑器

savetime2k@ 2004.1.28

[显示：小字体|大字体]

今天开始学习元件编辑器，感觉比属性编辑器简单许多，但还是遇到了一些疑问。如果你能解答文中记录的问题，请告诉我答案，谢谢！

目录

===============================================================================

TBaseComponentEditorclass

IComponentEditorinterface

TComponentEditorclass

TComponentEditor.ExecuteVerb方法

TComponentEditor.PrepareItem方法

TComponentEditor.Edit方法

TComponentEditor.IsInInlined方法

TDefaultEditorclass

TSelectionEditorclass

===============================================================================

本文排版格式为：

正文由窗口自动换行；所有代码以80字符为边界；中英文字符以空格符分隔。

(作者保留对本文的所有权利，未经作者同意请勿在在任何公共媒体转载。)

正文

===============================================================================

TBaseComponentEditorclass

===============================================================================

TBaseComponentEditor是所有元件编辑器的基类，它的构造函数由DelphiIDE在选中一个元件时被IDE调用。所有的元件编辑器必须实现TBaseComponentEditor.Create函数和IComponentEdiotr接口。元件编辑器的构造函数中传入当前选中的元件和IDesigner接口。

{DesignIntf.pas}

TBaseComponentEditor=class(TInterfacedObject)public

constructorCreate(AComponent:TComponent;ADesigner:IDesigner);virtual;end;

(*为什么要以TInterfacedObject为基类呢？)

===============================================================================

IComponentEditorinterface

===============================================================================

IComponentEditor定义了元件编辑器需要实现的接口：

IComponentEditor=interface

[{ECACBA34-DCDF-4BE2-A645-E4404BC06106}]

procedureEdit;

双击元件时触发

procedureExecuteVerb(Index:Integer);

执行一个自定义动作

functionGetVerb(Index:Integer):string;

获取自定义动作的字符串名称

functionGetVerbCount:Integer;

获取自定义动作的数量

procedurePrepareItem(Index:Integer;constAItem:IMenuItem);

自定义动作的菜单项

procedureCopy;

此方法在元件信息被拷贝到剪贴板之后被调用

(*试验结果：好像不会被调用？)functionIsInInlined:Boolean;

返回元件的Owner是否是csInline状态

functionGetComponent:TCompon