如何在delphi中为TLabel文本添加双下划线？

Question

如何为我的标签添加双下划线？

所以基本上我想要文本底部有两行而不是一行。如何才能实现这一目标？

这是我试图复制的屏幕截图。看“联系方式”文字上的双下划线：

Answer 1

如果涉及FMX，您可以轻松使用个人风格。 类似的东西 应该能解决问题

警告：如果多操作系统将样式放入“默认”样式集合中。

Todo：控制标签宽度，找到样式资源“下划线”并修改边距。优点是，使用相同的资源，您可以更改颜色、仅更改一侧等..