Delphi XE6 TForm.AutoSize

Question

我有用Delphi XE2编写的代码，他们工作得很好。但在Delphi XE6中，它不起作用。我创建了一个Tform，属性AutoSize为true。我使用一个带有按钮的TPanel align alTop来创建一些其他的面板。

procedure TForm2.Button1Click(Sender: TObject);
var
   t :TPanel;
begin
   t := TPanel.Create(self);
   t.Parent := self;
   t.Align := alTop;
end;

窗体不能自动调整大小。如果我想看到我的所有面板，我必须移动窗体(或尝试调整大小，...)。

你有什么想法吗？

Answer 1

这确实是一种行为上的改变。我可以复制你报告的内容。也就是说，您的代码会导致表单大小在XE2中更改，但在XE6中不会更改。

要解决此问题，您可以手动调用AdjustSize

procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanel;
begin
  Panel := TPanel.Create(self);
  Panel.Parent := Self;
  Panel.Top := ClientHeight;
  Panel.Align := alTop;
  AdjustSize;
end;

Answer 2

不对齐，使用锚点：

t.Anchors:=[TAnchorKind.akTop];

这是来自我的XE5 (没有XE6)