如果通过代码设置控制位置，则锚点不起作用

Question

我正在使用 Delphi XE3。

我在我的表单中添加了两个TEdit 控件，如下所示：

两者都将Anchors 设置为[akLeft, akTop, akRight]，这样当我调整表单大小时，编辑也会放大它们的大小。

但是，如果我在代码中更改Edit2的位置，如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Left := Edit1.Left - 10;
end;

然后点击Button1后会看到这个：

但我希望看到的是：

由于Edit2 的右边框被锚定到表单的右边框。为什么它没有按预期工作？

更新

在我的理解中，anchor 是指控件边框和表单边框之间的距离是固定的，听起来像是一个锚点。所以右锚意味着edit2的右边框和form的右边框之间的距离是固定的。并且在修改edit2的左边框时，它的宽度也会自动改变，再次保持固定距离。

更新2

我重新阅读了帮助文档，因为它解释了如下锚点：

“使用 Anchors 确保控件保持其相对于其父级边缘的当前位置，即使父级已调整大小。”

这和我理解的一样。

但是，它强调“仅在调整父级大小时才强制执行锚点。”。这条线似乎回答了我的问题，因为当我更改 Edit2.left 时，表单并没有改变。所以此时锚点不起作用。

Answer 1

手动更改位置不会触发锚点。通过代码执行此操作的行为与设计时相同。

什么锚属性只在调整其容器大小时起作用。更改元素定位时不起作用。在设计时，您对 left、top、height、padding 等所做的操作完全相同。

只有当元素所在的容器（或组件）中任何与属性相关的位置被触发时，锚属性触发的操作才会发生。

您可以做的是在元素上方插入一个容器（布局）并将所有内容放入其中。当您需要更改时，您应该更改布局，而不是其中的元素。 Edit2 应该向左锚定，但 Edit1 不是。

Answer 2

锚点“右”对应于宽度（锚点“底部”对应于高度）。锚点通常需要父母。

但是您没有更改父级的宽度，因此结果符合预期。如果您将锚点视为相对而非绝对，也许您会更好地理解它。

Answer 3

这是预期的行为。锚点与托管组件相关，而不是与组件本身相关。

你可以通过写作得到你需要的东西：

TForm1.Button1Click(Sender: TObject); 
begin 
  Edit2.Left := Edit1.Left - 10; 
  Edit2.Width := Edit2.Width + 10;
end;