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

发布时间：2020-12-15 09:41:10 所属栏目：大数据来源：网络整理

导读：我正在尝试编写一个TCustomDBGrid后代,它的设计感觉就像TListBox.我想要改变的一件事是Options属性的默认值. TCustomDBGrid将Options定义为： property Options: TDBGridOptions read FOptions write SetOptions default [dgEditing,dgTitles,dgIndicator,dg

我正在尝试编写一个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,dgRowSelect,dgAlwaysShowSelection,dgCancelOnExit];

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

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

解决方法

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

property Options default [dgTitles,dgCancelOnExit];

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!