How to Create Custom Shape Changing Dialogs Form

Question

How I can create a custom shape changing dialog form in Firemonkey using Delphi XE3.

I want create two layout with some components(buttons,edits) inside any one of them, and one button in the first layout with name "SHOW/HIDE MORE DETAILS ", So this button will do: layout2.visible:=false

With this layout2 component hide but not auto align and auto size form. How i can doit? Here image example about what i want to do

Answer 1

Look at the following code:

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

Using this, when you click More (in this case the button is called Button1) the form changes its height. I set 40, but of course you can use another integer value.