Delphi XE6 TForm.AutoSize

Question

我在 Delphi XE2 中编写了代码，运行完美。但在Delphi XE6中它不起作用。我创建了一个 Tform，其属性 AutoSize 为 true。我使用 TPanel 将 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;