delphidelphi-7tpagecontroltscrollboxttabsheet

How to scroll a TTabSheet


I'd like to scroll an individual TabSheet within a PageControl if the height of the sheet becomes less than a value.

If I put a ScrollBox on the TabSheet, the themed background of the TabSheet is not painted (it's overwritten by the single color background of the scrollbox).

I've been trying to find / create a transparent scrollbox component with no luck. Any other ideas?

I'm using Delphi 7.

Thanks!


Solution

  • To answer my own question, TMS has a transparent scrollbox component called "TAdvScrollBox" that works with themed tabsheets too: http://www.tmssoftware.com/site/asb.asp

    Maybe this will help somebody: There is a small bug with the component that turns the ParentCtl3d property to false causing ListViews to be rendered with a black border instead of a 3d one. It's easy to fix by setting ParentCtl3d to true programmatically on FormCreate.