TPageControl：Styleプロパティの変更を防止する方法

Question

TPageControlの子孫がtsTabs以外のStyleプロパティを持たないようにします。

一見、SetStyleを無効にしようとしましたが、基本クラスでプライベートと宣言されています。誰もがアイデアを持っている

Answer 1

TPageControlあなたが求めていることをネイティブにサポートしていません。

1. は、あなたのコンポーネントが新しいgetter/setterメソッドを持つStyleプロパティを再宣言していて、その後、何もせずセッター出口を持っている：あなたが求めているものを達成するために、あなたはどちらかしな​​ければなりません。ただし、コンポーネントのユーザーが本当にアクセスしたい場合、継承されたStyleプロパティは実行時に技術的にアクセス可能です。

2. はTPageControlが行うすべてのものをTCustomTabControl代わりにTPageControlからコンポーネントを引き出すと、再実装が、保護されたStyleプロパティを促進することなく。ただし、コンポーネントのユーザーが本当にアクセスしたい場合、継承されたStyleプロパティは実行時に技術的にアクセス可能です。

3. コンポーネントが仮想CreateParams()メソッドをオーバーライドし、TCS_TABSウィンドウスタイルを強制的にTCreateParams.Styleフィールドに追加します。 Styleプロパティには、ユーザーが割り当てた値（TabPositionプロパティの動作にも影響します）が残りますが、少なくとも基礎となるウィンドウは常にtsTabsスタイルが使用されているかのように動作します。

4. 実行時に直接TCustomTabControl.SetStyle()をフックして何もせずにリターンするための迂回ライブラリを使用します。