我正在尝试编写一个TCustomDBGrid的后代,旨在让它感觉像一个TListBox。我想要改变的其中一件事是Options属性的默认值。TCustomDBGrid将Options定义为:
尝试在我的类中覆盖它:
无法运行;编译器期望在类型后面是read或write,而不是default。问题是,在TCustomDBGrid中,FOptions和SetOptions都被定义为私有的,而不是受保护的。
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];
无法运行;编译器期望在类型后面是read或write,而不是default。问题是,在TCustomDBGrid中,FOptions和SetOptions都被定义为私有的,而不是受保护的。
我需要编写自己的获取和设置方法来调用“inherited Options”,还是有更简单的方法可以做到这一点?