delphi - TTabSheet をスクロールする方法

Question

シートの高さが値未満になった場合、PageControl 内の個々の TabSheet をスクロールしたいと思います。

TabSheet に ScrollBox を配置すると、TabSheet のテーマの背景は描画されません (スクロールボックスの単色の背景で上書きされます)。

私は運がない透明なスクロールボックスコンポーネントを見つけたり作成したりしようとしています。他のアイデアはありますか？

Delphi 7 を使用しています。

ありがとう！

Answer 1

私自身の質問に答えるために、TMS には「TAdvScrollBox」と呼ばれる透明なスクロール ボックス コンポーネントがあり、テーマ別のタブシートでも動作します: http://www.tmssoftware.com/site/asb.asp

多分これは誰かを助けるでしょう: ParentCtl3d プロパティを false に変えるコンポーネントに小さなバグがあり、ListViews が 3D ではなく黒い境界線でレンダリングされます。FormCreate でプログラムによって ParentCtl3d を true に設定することで、簡単に修正できます。