delphi - カスタム形状変更ダイアログフォームの作成方法

Question

Delphi XE3 を使用して Firemonkey でカスタム形状変更ダイアログフォームを作成する方法。

それらのいずれかの内部にいくつかのコンポーネント（ボタン、編集）を含む2つのレイアウトを作成し、最初のレイアウトに「SHOW / HIDE MORE DETAILS」という名前の1つのボタンを作成したいので、このボタンは次のようになります：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

Forms Height プロパティを制御するだけで、フォームを拡大または縮小できます。クライアント領域に描画されていないコントロールは、関係なく同じ位置に残ります。

フォームを縮小するときは、非表示のコンポーネントを無効にしてください。描画されていなくても、フォーカスを受ける可能性があります。

delphi - カスタム形状変更ダイアログ フォームの作成方法