TTabControl的标题

时间:2011-04-07 12:30:15

标签: delphi delphi-2010 tabcontrol customization caption

我正在寻找一种在一组标签之前实现一种插入标题的方法,如下所示:

enter image description here

标签集不应该是多行的,只能是水平的并且位于顶部。但是,当标签太多时,它应该可以正确滚动。

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

也许有一些方法可以通过巧妙安排的标准控制组合实现这一点,尽管我的努力,但它已经逃过了我。

基本上,任何想法或指示都是受欢迎的。

哦,还有其他要求,它应该与桌面主题完美融合。

3 个答案:

答案 0 :(得分:1)

已经过了一段时间,但我最近需要这种风格,并发现你可以使用TMS Software TAdvOfficePager来完成。它有一个属性FixedTabs,在这种情况下我设置为1。它还有一个OnChanging事件,你可以阻止访问选项卡,在这种情况下我使用AllowChange:=(ToPage> 0);最后,我将第一个标签设置为禁用。

然后设置第一个选项卡的样式与其余选项卡不同,你可以这样:

enter image description here

答案 1 :(得分:0)

您是否尝试将第一个标签设为您想要的标题。 使用一些额外的逻辑,您可以限制此选项卡的选择。

我不知道你是否可以单独控制每个标签的样式,使第一个标签看起来不是标签。

答案 2 :(得分:0)

这是狡猾的控制安排,可行。我过去做过这种事。最重要的是它会自动处理选项卡的滚动。

Crafty arrangement