delphi - 是否可以将属性连接到嵌入式组件

Question

我想编写一个嵌入其他组件的复杂组件。但我不确定是否能够通过对象检查器连接到这些组件。

为了澄清这一点，想象一个包含 TDataSources 列表的组件。这些 DataSource 组件归此组件所有，在表单上不可见。

现在我想将 TDataset 连接到这些数据源之一，是否可以，这些数据源会显示在数据集的属性编辑器组合中吗？

Answer 1

这是可能的，但您必须输入(或复制)名称；您无法在 OI 中选择它。

使用下面编写的组件，您可以输入例如将 MyComp1.InternalDataSource 插入 DBGrid 的 DataSource 属性:

uses
  Classes, DB;

type
  TMyComp = Class(TComponent)
  private
    FDataSource: TDataSource;
  public
    constructor Create(AOwner: TComponent);override;
  published
    property DataSource: TDataSource read FDataSource;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('TEST', [TMyComp]);
end;

{ TMyComp }

constructor TMyComp.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FDataSource := TDataSource.Create(Self);
  FDataSource.Name := 'InternalDataSource';
end;