将字段和TDataset添加到组件属性

Question

我想为我的组件添加两个属性：一个TDataSet和一个TField，这样当我设置TDataset属性时，我可以从DataField属性中的字段中选择。
我不知道如何建立DataField和DataSet属性之间的关系。

我该怎么做？

Answer 1

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

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

如果您希望拥有名称不是TDataSource的{​​{1}}媒体资源，则可以从DataSource派生并覆盖其虚拟TDataFieldProperty方法。

如果您必须直接接受GetDataSourcePropName()，则必须为TDataSet媒体资源编写自定义媒体资源编辑器，并让其直接致电DataField。