Delphi：组件构建 - 关联TVirtualStringTree

Question

我正在构建一个新组件，我想添加一个属性来关联TVirtualStringTree对象。

在下面的图片中，我指出了来自TLabel对象的示例，该对象的属性FocusControl与TEdit

相关联

如果我喜欢这样：

  TMyComponent = class(TComponent)
  private
    FVirtualStringTree: TVirtualStringTree;
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property VirtualStringTree: TVirtualStringTree read FVirtualStringTree write FVirtualStringTree;
  end;

我收到如下错误：＆＃34;无法加载包....它包含单元VirtualTrees.WorkerThread，它也包含在VirtualTreesR22包中。

请建议我如何创建这种类型的关联。

Answer 1

问题不在于关联，问题是您（间接）将代码从TVirtualStringTree包含到包中，而另一个已安装的包已经具有相同的单元。

由于其他包显然是TVirtualStringTree的运行时包，因此您只需从包中引用该包。然后它不会尝试合并单位，而是从VirtualTreesR引用它。通过这种方式，您可以避免冲突，一切都应该很好：

package Bla;

  ...

requires
  VirtualTreesR,
  vcl,
  etc....