如何在TMemo组件中将文本水平居中？

Question

我的Delphi应用程序中有一个TMemo组件。

我如何在组件内水平放置文本以使所有内容都在中间？

Answer 1

您可以在FireMonkey中将HorzAlign属性设置为Center，在VCL中将Alignment属性设置为taCenter。然后，这将使文本在TMemo组件中水平居中，如下所示：

这也是每个框架的代码示例。

FireMonkey：

Memo1.TextSettings.HorzAlign := TTextAlign.Center;

VCL：

Memo1.Alignment := taCenter;

Answer 2

只需将备忘录的Alignment属性设置为taCenter。