如何创建自定义形状更改对话框表单

Question

如何使用Delphi XE3在Firemonkey中创建自定义形状更改对话框表单。

我想创建两个布局，其中任何一个组件内部都有一些组件（按钮，编辑），并在第一个布局中创建一个名称为“ SHOW / HIDE MORE DETAILS”的按钮，因此此按钮将执行以下操作：layout2.visible：= false

使用此layout2组件可以隐藏但不能自动对齐和自动调整大小形式。我该怎么办？这是关于我想做什么的图像示例

Answer 1

看下面的代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Height:=40;
end; 

使用此方法，当您单击More（在这种情况下，按钮称为Button1）时，表单将更改其高度。我设置为40，但是您当然可以使用其他整数值。