delphi - TScaledLayout 锚点

Question

在表单中，我有一个与 alContent 对齐的布局，在内部我有一个与 alRight 对齐的新按钮。问题是当我缩小比例时，方向总是从右到左。当我减小布局的比例时，有什么办法可以使按钮继续右对齐，以改变从左到右的方向？

Answer 1

我相信这不是一个确定的解决方案，但到目前为止，当我更改比例时，我还没有找到另一种按比例重新定位 TScaledLayout 的替代方法。

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  with ScaledLayout1
  do Position.X := OriginalWidth - (OriginalWidth / (1 / TrackBar1.Value));
end;