有没有办法暂停表单上的所有锚定控件暂时移动或调整大小?即:
procedure ScaleFormBy(AForm: TForm; n, d: Integer); begin AForm.SuspendAnchors(); try AForm.ScaleBy(n, d); finally AForm.ResumeAnchors(); end; end;
我需要这样做,因为我正在打电话
AForm.ScaleBy(m, d);
哪个不能正确处理锚定控件.(它将左侧+右侧或顶部+底部锚定控件推离窗体边缘.
注意:我想禁用Anchors,而不是Alignment.
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;
请享用