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

Question

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

我想创建两个布局，其中任何一个都包含一些组件（按钮，编辑），并在第一个布局中创建一个名为“SHOW/HIDE MORE DETAILS”的按钮，所以这个按钮可以：layout2.visible:=false

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

图像示例

score 5 · Accepted Answer

看下面的代码：

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

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

score 4 · Accepted Answer

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

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

2 回答 2