向组件属性中添加TField和TDataset

Question

我想向组件中添加两个属性: TDataSet和TField，以便在设置TDataset属性时，可以从DataField属性中的字段中进行选择。

我不知道如何在DataField和DataSet属性之间建立关系。

我怎么能这么做？

Answer 1

如果将组件更改为具有DataSource: TDataSource属性而不是DataSet: TDataSet属性，则Delphi的标准TDataFieldProperty编辑器将自动为您填充DataField: string属性。然后，可以将所需的TDataSet组件链接到TDataSource组件。

如果希望为任何未命名为string的DataField属性显示下拉列表，则可以通过RegisterPropertyEditor()手动为该属性注册TDataFieldProperty。

如果您想拥有一个名不是TDataSource的DataSource属性，您可以从TDataFieldProperty派生并重写它的虚拟GetDataSourcePropName()方法。

如果必须直接接受TDataSet，则必须为DataField属性编写自定义属性编辑器，并让它直接调用TDataSet.GetFieldNames()。