Delphi 页面控件左对齐选项卡上的水平文本方向

是否有可能水平定向左对齐的选项卡标题？

不确定您到底想要什么，但可以将OwnerDraw属性设置为True。然后使用OnDrawTab事件自己绘制。

除了使用ownerdraw，我认为TPageControl没有一种简单的方法可以做到这一点。如果您考虑使用非自由第三方组件，则使用RAIE组件中的TrZPAGETCROUTL，它具有此特性。确保将“TextOrientation”设置为水平，将TabStyle设置为圆角（默认的选项卡样式与水平模式下的文本看起来很奇怪）。

相关问题，也许您可以根据需要调整代码？我想将选项卡上的标题设置为水平。正如下图所示。我尝试使用Gerry的建议“将Canvas.Font.Orientation设置为900或2700”作为PageControl.Canvas.Font.Orientation:=900；但我明白了“未声明的标识符：'Orientation'可以使用所有者绘图来实现。在我的TForm1.PageControl2DrawTab部分中，我将ulrichb建议的代码放在其中。编译器停止对TextFormat的编译：TTextFormat；表示未声明的标识符：“TTextFormat”。我是新德里人，您能告诉我如何更正吗？TTextFormat在文件图形中定义。所以你需要在uses语句中包含图形，它已经存在了。实际上没关系，这并不像我以前想的那么必要。+1在一套精巧的工具（如Raize组件）之前，不需要满足很多这些要求，就可以多次为自己付费。Ray继续积极支持他们，在保持多个向后兼容版本的同时，使用每个Delphi更新进行更新。对不起，我没有钱。这只是一个帮助我母亲工作的项目。如果它不是“专业”级别的应用程序，你可以使用一个没有可见选项卡的页面控件，然后使用另一个控件（或一组按钮）来更改活动页面。如果页面的数量是固定的，那么这很容易，如果不是，你只需要动态创建按钮（这也很容易）。我相信你可以通过使用不同的控件来更改页面，从而获得非常好的外观。谢谢MarkF，我已经用Google和GameCat解决了这个问题。我用了一块画布，上面画着文字。