delphi - TTabControl 的标题

Question

我正在寻找一种在一组选项卡之前实现某种插入标题的方法，如下所示:

选项卡集不应该是多行的，只能是水平的并布置在顶部。但是，当选项卡太多时，它应该可以正确滚动。

我担心我在使用第三方控件方面会受到限制，但我可以使用标准 TTabControl 上的子类来对标准外观和行为添加必要的更改。 (我不需要它是 TPageControl，因为它只是我感兴趣的选项卡的具体排列。)

也许有某种方法可以通过巧妙安排的标准控件组合来实现这一点，尽管我付出了努力，但我还是没有想到。

基本上，欢迎任何想法或指示。

哦，额外的要求是，它应该与桌面主题很好地融合。

Answer 1

确实已经过去了一段时间，但我最近需要这种样式，并发现您可以使用 TMS 软件 TAdvOfficePager 来做到这一点。它有一个属性FixedTabs，在本例中我将其设置为1。它还有一个 OnChanging 事件，您可以在其中阻止访问选项卡，在本例中我使用了AllowChange := (ToPage > 0);最后，我将第一个选项卡设置为禁用。

然后只需将第一个选项卡的样式设置为与其余选项卡不同，您就可以得到如下所示的内容: