Delphi Open Tools API 浅探 - 属性编辑器.doc

问题：Delphi Open Tools API 浅探 - 属性编辑器 ( 积分：100, 回复：9, 阅读：158 )分类：Object Pascal ( 版主：menxin, cAkk ) 来自：savetime, 时间：2004-1-26 20:45:00, ID：2423144 [显示：小字体 | 大字体] Delphi Open Tools API 浅探 - 属性编辑器savetime2k@ ?2004.1.26昨天开始学习 Delphi Open Tools API，第一站是 TPropertyEditor。在阅读 VCL 源码时发现了不熟悉的 interface 操作，只好临时学习了 interface。花了二天时间大概了解了属性编辑器的工作原理，作此笔记留存。希望读者在发现错误时及时通知我，先行谢过。这段时间我写了几篇笔记，开始二篇还有人参与讨论，后面几篇尚无人提出意见，希望只是过年休息的原因。我把笔记公开是基于两种考虑：一是觉得还有些价值，可以与人分享；二是我现在没有太多时间在一个主题上深究、检察，希望您在阅读的过程中也稍加思考，发现并指出笔记中的错误、遗漏，似乎这样比较符合大富翁的精神。目 录===============================================================================⊙ RegisterPropertyEditor 函数⊙ TPropertyEditor 的工作过程⊙ IProperty interface⊙ IProperty70 interface⊙ TPropertyEditor.GetAttributes 方法⊙ TPropertyEditor.GetValue / SetValue 方法⊙ TPropertyEditor.Get / Set 系列方法⊙ TPropertyEditor.GetValues 方法⊙ TPropertyEditor.Edit 方法⊙ TPropertyEditor.GetProperties 方法 *⊙ TPropertyEditor.Modified 方法⊙ 基本数据类型的属性编辑器⊙ VCL 元件的属性编辑器⊙ ICustomPropertyDrawing interface⊙ ICustomPropertyListDrawing interface⊙ 未完成的工作===============================================================================本文排版格式为：? ?正文由窗口自动换行；所有代码以 80 字符为边界；中英文字符以空格符分隔。(作者保留对本文的所有权利，未经作者同意请勿在在任何公共媒体转载。)正 文===============================================================================⊙ RegisterPropertyEditor 函数===============================================================================RegisterPropertyEditor 函数用于注册一个属性编辑器至 IDE 环境。{ DesignIntf.pas }procedure RegisterPropertyEditor(PropertyType: PTypeInfo; ComponentClass: TClass;?const PropertyName: string; EditorClass: TPropertyEditorClass);begin?if Assigned(RegisterPropertyEditorProc) then? ?RegisterPropertyEditorProc(PropertyType, ComponentClass, PropertyName,? ? ?EditorClass);end;这个函数本身很简单，那么它是如何与 IDE 交互的呢？原来 RegisterPropertyEditorProc 函数指针在 DesignEditors.pas 的 initialization 段被赋值为 RegisterPropertyEditor 函数：{ DesignEditors.pas ?- initialization }DesignIntf.RegisterPropertyEditorProc := Register