delphi – 编写属性编辑器 – 我需要一些指导

我正在创建一个派生自TCustomTreeView的组件,我想添加一个属性,在Object Inspector中显示一个下拉列表(paValueList？).此列表必须根据附加到我的控件的另一个列表(TStrings)动态填充,例如,它可以是来自TComboBox,TListBox的项目或来自TStringList的字符串等.

我有一些问题,我真的可以做一些指导和建议.

代码布局

我缩短了代码以使其更容易阅读,但布局基本上与我的相同.

我已将我的组件包分成两个(相同的项目组),Package1包含组件代码(例如,我的组件派生自TCustomTreeView),Package2包含注册过程和设计器单元(designide.dcp,DesignIntf??,DesignEditors等).

Package2是我认为我需要添加我的属性编辑器的地方,该编辑器将用于从Package1中的TCustomTreeView派生的组件.

包1

unit MyTreeViewUnit;

implementation

uses
  ...
  Classes,SysUtils;

type
  TMyTreeView = class(TCustomTreeView)
  private
    FSomeList: TStringList; // property editor should be filled using this list
    procedure SetSomeList(const Value: TStringList);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property SomeList: TStringList read FSomeList write SetSomeList;
  end;

  ....

包2

unit MyTreeViewPropUnit;

implementation

uses
  DesignIntf,DesignEditors,Classes;

type
  TMyTreeViewProperty = class(TStringProperty)
  public
    function GetAttributes: TPropertyAttributes; override;
    procedure GetValues(Proc: TGetStrProc); override;
    procedure Edit; override;
  end;

implementation

uses
  MyTreeViewUnit;  

function TMyTreeViewProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paValueList]; ?
end;

procedure TMyTreeViewProperty.GetValues(Proc: TGetStrProc);
begin
  inherited;
  // These cannot be added here!!
  // This list should be populated based on SomeList found in Package1 - MyTreeViewUnit.pas
  Proc('Item1');
  Proc('Item2');
end;

procedure TMyTreeViewProperty.Edit;
begin
  inherited;
  // ?
end;

unit MyCompsRegister;

interface

uses
  Classes;

procedure Register;

implementation

uses
  MyTreeViewUnit;
  MyTreeViewPropUnit;  

procedure Register;
begin
  RegisterComponents('MyTree',TMyTreeView);
  RegisterPropertyEditor(TypeInfo(String),TMyTreeView 'Test',TMyTreeView); // does not seem to add to object inspector for the component TMyTreeView
end;

end.

问题

>第一个问题是我不知道我正在做什么是正确的方法,我的组件安装,我可以毫无问题地使用它,虽然我的属性编辑器’测试’没有显示！
>第二个问题是GetValues的填充方式.在线查看一些文章让我对填写我的属性编辑器等方面的内容有了基本的了解.这不能以这种方式添加,虽然我需要的东西,在这个例子中我需要GetValues来填充基于在第一个单元中分配给SomeList的字符串(正如我在FSomeList之前所说的那样可能是TListBox).
>这与问题2有什么关系,如何让我的属性编辑器(工作时)与我的树视图进行通信,以便我可以相应地填充它？

如果有人能给我一些指导,或者更好的指导我写一篇关于编写房产编辑的好文章/指南,我将非常感激.我读过的那些如Delphi.about,DelphiDabbler等对我来说并不容易理解和遵循(我很容易混淆并陷入困境).

非常感谢！