文本水平对齐在运行时创建的标签上不起作用

Question

在 Android 应用程序中，我尝试在运行时将标签创建为矩形，并且除了文本的水平对齐之外，所有属性都工作正常。我的代码有问题吗？

procedure TForm7.Button1Click(Sender: TObject);
var
  lb : TLabel;
begin
  lb := TLabel.Create(Rectangle1);
  lb.Parent := Rectangle1;
  lb.Align := TAlignLayout.Center;
  lb.TextSettings.HorzAlign := TTextAlign.Leading;
  lb.Width := 300;
  lb.TextSettings.Font.Size := 12;
  lb.StyledSettings:=[TStyledSetting.Family,TStyledSetting.Style,
    TStyledSetting.FontColor,TStyledSetting.Size,TStyledSetting.Other];
  lb.Margins.Bottom := 100;
  lb.Text := 'Programming Language is Delphi 10.4 31/3/2022';
end;

Answer 1

您需要阅读 FMX.Graphics.ITextSettings。您会发现TStyledSettings 和TTextSettings 之间存在重要关系。

在您的问题中，您担心水平对齐不遵循您的设置：

lb.TextSettings.HorzAlign := TTextAlign.Leading;

这是因为您通过在 lb.StyledSettings 中包含 TStyledSetting.Other 来否决它。

从 lb.StyledSettings 中删除 TStyledSetting.Other，您将看到 HorzAlign、VertAlign、Trimming 和 WordWrap 将遵循您自己的设置。

Answer 2

我希望这可以帮助你。 TLabel的属性Alignment需要配置为taCenter。但仅仅这样还不够。除此之外，您还需要将属性 AutoSize 配置为 false。那么，一切都会好起来的。

lb.Alignment := taCenter;
lb.AutoSize := false;

---

属性Align不是对齐标签内的文本，而是对齐表单内的标签组件。 Alignment 是对齐标签内文本的正确属性。是的，我知道，他们可以更清楚地提出这些属性名称。