TPageControl:如何防止更改样式属性

Question

我希望防止TPageControl的后代拥有除tsTabs以外的Style属性。

乍一看，我试图重写SetStyle，但它在基类中被声明为私有。有人有主意吗？

Answer 1

TPageControl本机不支持您所要求的内容。要完成你想要的，你必须：

1. 让组件用新的getter/setter方法重新声明Style属性，然后让setter退出而不做任何操作。但是，如果组件的用户确实希望访问该属性，则继承的Style属性在技术上仍然可以在运行时访问。
2. 从TCustomTabControl而不是TPageControl派生组件，并重新实现TPageControl所做的一切，但不提升受保护的Style属性。但是，如果组件的用户确实希望访问该属性，则继承的Style属性在技术上仍然可以在运行时访问。
3. 让组件重写虚拟CreateParams()方法，并在TCreateParams.Style字段中强制使用TCS_TABS窗口样式。Style属性仍然具有用户分配的任何值(这也会影响TabPosition属性的行为)，但至少底层窗口的行为总是像使用tsTabs样式一样。
4. 使用绕行库在运行时直接挂接TCustomTabControl.SetStyle()并使其返回而不执行任何操作。