delphi - 覆盖 Delphi 属性的默认值的最简单方法是什么？

Question

我正在尝试编写一个 TCustomDBGrid 后代，其设计感觉像一个 TListBox。我想要更改的一件事是选项属性的默认值。 TCustomDBGrid 将选项定义为:

property Options: TDBGridOptions read FOptions write SetOptions
  default [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines,
  dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit];

尝试在我的类(class)中覆盖它

  property Options: TDBGridOptions default
     [dgTitles, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit];

不起作用；编译器期望在类型之后读取或写入，而不是默认。问题是，FOptions 和 SetOptions 在 TCustomDBGrid 中都被定义为私有(private)的，不 protected 。

我是否必须编写自己的 get 和 set 方法来调用“继承选项”，或者是否有更简单的方法来执行此操作？

Answer 1

不要指定类型。然后您可以更改默认值。请记住，您还必须在构造函数中将 Options 属性设置为默认值。下面的代码实际上并没有设置默认值，它只是让它知道当属性值是这样的时候不要流式传输。

property Options default [dgTitles, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit];