在 TMS Web Core 中实现水平居中（类似 FMX 的 HorzCenter）

1. 1. 手动计算居中位置：
   • • 在父容器的 OnResize 事件中，手动计算并设置面板的 Left 属性，使其水平居中。
   • • 同时设置面板的高度为父容器的高度，以模拟 HorzCenter 的效果。
2. 2. 使用 Center 属性：
   • • 从 TMS Web Core v2.4.5.0 开始，TWebPanel 和其他常用 UI 控件提供了 Center 属性，可以轻松实现水平和垂直居中。

代码实现

以下是一个实现水平居中的示例代码：

procedure TForm1.FormResize(Sender: TObject);
begin
  // 手动实现 HorzCenter 效果
  WebPanel.Align := alNone;
  WebPanel.Top := 0;
  WebPanel.Height := WebPanel.Parent.Height;
  WebPanel.Left := (WebPanel.Parent.Width - WebPanel.Width) div 2;
end;

使用 Center 属性

如果你使用的是 TMS Web Core v2.4.5.0 或更高版本，可以直接使用 Center 属性来实现居中：

WebPanel.Center := True; // 水平和垂直居中

关键点

• • 手动计算居中：通过计算父容器的宽度和面板的宽度，手动设置 Left 属性来实现水平居中。
• • Center 属性：在较新的 TMS Web Core 版本中，使用 Center 属性可以更方便地实现居中效果。

虽然 TMS Web Core 没有直接提供 HorzCenter 选项，但通过手动计算或使用 Center 属性，可以轻松实现类似的效果。希望这篇文章能帮助你在 TMS Web Core 中实现水平居中布局。