delphi - Delphi 5:如何暂停 anchor 布局？

有没有一种方法可以暂停表单上的所有固定控件，使其暂时不移动或调整自身大小？即：

procedure ScaleFormBy(AForm: TForm; n, d: Integer);
begin
    AForm.SuspendAnchors();
    try
       AForm.ScaleBy(n, d);
    finally
       AForm.ResumeAnchors();
    end;
end;

我需要这样做，因为我正在打电话

AForm.ScaleBy(m, d);

哪个不能正确处理锚定控件。 （它将左，右或上+下锚定控件推离窗体的边缘。

注意：我要禁用锚，而不是对齐。

最佳答案

SuspendAnchors听起来像是基本方法，但我不认为它是基本Delphi语言的一部分:)
这是一些可以解决问题的代码：

var aAnchorStorage: Array of TAnchors;
procedure AnchorsDisable(AForm: TForm);
var
  iCounter: integer;
begin
  SetLength(aAnchorStorage, AForm.ControlCount);
  for iCounter := 0 to AForm.ControlCount - 1 do begin
    aAnchorStorage[iCounter] := AForm.Controls[iCounter].Anchors;
    AForm.Controls[iCounter].Anchors := [];
  end;
end;

procedure AnchorsEnable(AForm: TForm);
var
  iCounter: integer;
begin
  SetLength(aAnchorStorage, AForm.ControlCount);
  for iCounter := 0 to AForm.ControlCount - 1 do
    AForm.Controls[iCounter].Anchors := aAnchorStorage[iCounter];
end;

procedure TForm1.btnAnchorsDisableClick(Sender: TObject);
begin
  AnchorsDisable(Self);
end;

procedure TForm1.btnAnchorsEnableClick(Sender: TObject);
begin
  AnchorsEnable(Self);
end;

请享用