Windows TTabSheet的多行标题？

我有一个带有多个选项卡的TPageControl。在一个页面上，页眉有点太长，看起来被剪裁在一行上。是否可以将选项卡标题设置为多行（如按钮上的WordWrap属性）

在下图中，标题已设置为“此文本太长，无法容纳一行”。理想情况下，这应显示在两行上：

This text is too long to fit
onto one row

对于以下示例，我已设置：

TabWidth := 185;
TabHeight := 60;

*编辑*

上面的示例不应用任何主题。当应用皮肤（在本例中为第三方产品VCLSkin）并且我在运行时插入换行符时，它会工作：

Product_Sheet.Caption := (
    'This text is too long' + #13#10 + 'to fit onto one row');

---

根据下面的评论，这表明在没有蒙皮的情况下，这需要自定义绘制。

我根本无法复制这一点。你的页面控件与我的完全不同。我猜答案会在您运行的代码中找到，而我们对这些代码一无所知，这些代码以非标准方式绘制这些选项卡。页面控件的绘制方式并不奇特。我所做的是将TabHeight设置为“60”（相当大），并手动为示例图像添加一个红色矩形。第一页的标题是

远程支持

等等。您设置的

选项卡宽度

属性很重要。将

TabHeight

和

TabWidth

保留为默认值

0

，一切正常。你也应该添加一个清单，这样你就可以得到一个主题化的应用程序。您的程序在外观上落后于时代大约15年。@Jerrydoge当我意识到Alain正在更改页面控件的属性时，我复制了它。如果你坚持固定的宽度和高度，那么你就得接手画文本了。这并不难，有很多例子向你展示如何做到这一点。如果你在嵌入式系统上运行，那么我猜你不需要主题。我根本无法复制这个。你的页面控件与我的完全不同。我猜答案会在您运行的代码中找到，而我们对这些代码一无所知，这些代码以非标准方式绘制这些选项卡。页面控件的绘制方式并不奇特。我所做的是将TabHeight设置为“60”（相当大），并手动为示例图像添加一个红色矩形。第一页的标题是

远程支持

等等。您设置的

选项卡宽度

属性很重要。将

TabHeight

和

TabWidth

保留为默认值

0

，一切正常。你也应该添加一个清单，这样你就可以得到一个主题化的应用程序。您的程序在外观上落后于时代大约15年。@Jerrydoge当我意识到Alain正在更改页面控件的属性时，我复制了它。如果你坚持固定的宽度和高度，那么你就得接手画文本了。这并不难，有很多例子向你展示如何做到这一点。如果你在嵌入式系统上运行，我想你不需要主题。