//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  //C++ Builder Berlin 10.1 Starter Edition のVCLのソースです。
  //フォームのサイズを変更したときに、フォーム内のコンポーネントの位置も、
  //自動的に変わるようにしないと不自然です。
  //C++ Builderでは、コードを書かなくても、オブジェクトインスペクタで
  //コンポーネントのプロパティのAnchors内の、akLeft(左)、akTop(上)、akRight(右)、
  //akButtom(下)をセットするだけで、フォームのサイズ変更時に追従してコンポーネント
  //を寄せる側を指定することができます。

  //コードで書く場合は以下のように書きます。
  //以下の部分はTAnchorKind::akLeftのように、「TAnchorKind::」を付けると、
  //VCLとFireMonkey(FMX)間で共通のソースになります。

  //Memo1をフォームのサイズを変更時、Mimo1の大きさをフォームに大きさに合わせる
  Memo1->Anchors = TAnchors() << akLeft << akTop << akRight << akBottom;

  //Edit1をフォームのサイズを変更時、フォームの大きさに合わせて右寄せする。
  Edit1->Anchors = (TAnchors() << akTop << akRight) >> akBottom >> akLeft;

  //Button1をフォームのサイズを変更時、フォームの大きさに合わせて右寄せする。
  Button1->Anchors = (TAnchors() << akTop << akRight) >> akBottom >> akLeft;
}
//---------------------------------------------------------------------------