delphi - TabPosition が tpLeft の場合、TPageControl タブの色とスタイルが正しくない

Question

まず、新しい形を作り、その色を作りましたclWhite。次に、ドロップインしてTPageControl、2 つの新しいページを追加しました。すべて問題なく、すべての背景は白でした (非アクティブなタブ ヘッダーを除く)。しかし、その後、ページ コントロールで、プロパティTabPositionをに変更tpLeftし、タブ ヘッダーをデフォルトのウィンドウの色に変更しましたが、それ以外はすべて白のままでした。

TabPosition = tpTop

TabPosition = tpLeft

タブが左側にあるときに正しく表示する方法はありますか?

Answer 1

組み込みのコントロールには、この動作を変更できるものは何もありません。実際、観察している動作は、基盤となるWindowsコントロールの設計どおりの動作です。SysTabControl32このスタイルを使用して生のWin32コントロールを作成することにより、これを簡単に確認できますTCS_VERTICAL。したがって、コントロールはすでに正しく表示されています。

本当に外観を変更したい場合は、タブを自分でペイントする必要があります。