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

Question

我正在尝试编写一个TCustomDBGrid后代,它的设计感觉就像TListBox.我想要改变的一件事是Options属性的默认值.TCustomDBGrid将Options定义为:

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

试着用我的课程覆盖它

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

不起作用; 编译器期望在类型之后读取或写入,而不是默认值.问题是,在TCustomDBGrid中,FOptions和SetOptions都被定义为私有,而不是受保护.

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

Answer 1

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

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