代码之家 › 专栏 › 技术社区 › DrWael

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

vcl delphi

DrWael · 技术社区 · 9 年前

我想阻止 TPageControl 从有 Style 财产除外 tsTabs .

乍一看,我试图超越 SetStyle ,但它在基类中声明为私有。有人有想法吗?

1 回复 | 直到 9 年前

Remy Lebeau 9 年前

TPageControl

让您的组件重新声明 Style 风格 如果组件的用户确实希望访问该属性,则从技术上讲,在运行时仍然可以访问该属性。
从 TCustomTabControl 而不是 TPageControl 确实,但不促进受保护的 风格 所有物然而,继承 风格 如果组件的用户确实希望访问该属性,则从技术上讲,在运行时仍然可以访问该属性。
让您的组件覆盖虚拟 CreateParams() 方法和强制 TCS_TABS 中的窗口样式 TCreateParams.Style 领域这个 风格 TabPosition 属性),但至少底层窗口的行为始终与 tsTabs 风格正在被使用。
TCustomTabControl.SetStyle() 直接在运行时执行,并使其返回而不执行任何操作。