如何创建自定义形状更改对话框窗体

Question

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

我希望在其中任何一个内部创建两个布局，其中包含一些组件（按钮，编辑），在第一个布局中创建一个名为“SHOW / HIDE MORE DETAILS”的按钮， 所以这个按钮会做： layout2.visible：=假

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

Answer 1

请查看以下代码：

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

使用此功能，当您单击More（在此情况下按钮名为Button1）时，表单会更改其高度。我设置了40，但当然你可以使用另一个整数值。

Answer 2

只需控制表单高度属性即可扩展或收缩表单。无论客户区域中未绘制的任何控件仍然保持在相同位置。

确保在签订表单时禁用不可见的组件，尽管没有绘制它们仍然可以获得焦点。