我正在寻找一种在一组选项卡之前实现某种插入式字幕的方法,如下所示:
选项卡集不应该是多行的,只能是水平的,并位于顶部。但是,当标签过多时,它应该可以正确滚动。
我担心我在使用第三方控件方面会受到限制,但是我可以在标准TTabControl上使用子类为标准外观和行为添加必要的更改。 (我不需要它是TPageControl,因为它只是我感兴趣的选项卡的特定排列。)
也许有一些方法可以通过精心安排的标准控件组合来实现,尽管我付出了很多努力,但还是让我逃脱了。
基本上,欢迎任何想法或指点。
哦,还有其他要求,那就是它应该与桌面主题完美融合。
最佳答案
已有一段时间,但是我最近需要这种样式,发现可以使用TMS软件TAdvOfficePager来完成。它具有属性FixedTabs,在这种情况下,我将其设置为1。它还有一个OnChanging事件,您可以在其中阻止对选项卡的访问,在这种情况下,我使用了AllowChange:=(ToPage> 0);最后,我将第一个标签设置为禁用。
然后,只需将第一个标签的样式设置为与其他标签不同,即可得到以下内容:
关于delphi - TTabControl的标题,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/5581039/