在Delphi XE3中向按钮组按钮添加换行功能

当前

TButtonGroup

没有

WordWrap

属性。我正在寻找一种方法来实现这一功能，但我对示例的搜索到目前为止还没有得到任何结果

我的问题是如何为

TButtonGroup中按钮的标题添加换行功能？

你能给我举个例子或指导我正确的方法吗？ 非常感谢您的回答！

---

顺便说一下，我使用DelphiXE3

将出现一个简单的换字，如果您在运行时通过这样编辑DFM来更改标题，可以看到这一点

Items = <
  item
    Caption = 'Word'#13'Wrap'#13'3 Lines'
  end
  ...

---

一个简单的文字包装已经发生了，如果您在运行时通过如下编辑DFM来更改的标题，就可以看到这一点

Items = <
  item
    Caption = 'Word'#13'Wrap'#13'3 Lines'
  end
  ...

---

+1，为了美观和简单（我刚刚使用

OnDrawButton

事件发布了一个示例，但您的解决方案更简单）。请注意，当自定义样式处于活动状态时，您可以改进代码，将Canvas.Brush.Style的值设置为

bsclear

，并计算垂直。居中。@RRUZ谢谢，我只是想展示一下在哪里可以钩住，有很多东西可以/应该考虑/改进…@bummi真棒！再简单不过了！我使用RRUZ输入使其与我的样式配合使用。非常感谢+1，为了美观和简单（我刚刚使用

OnDrawButton

事件发布了一个示例，但您的解决方案更简单）。请注意，当自定义样式处于活动状态时，您可以改进代码，将Canvas.Brush.Style的值设置为

bsclear

，并计算垂直。居中。@RRUZ谢谢，我只是想展示一下在哪里可以钩住，有很多东西可以/应该考虑/改进…@bummi真棒！再简单不过了！我使用RRUZ输入使其与我的样式配合使用。非常感谢你！！