VCL モーダル フォームを動的に作成する

提供: RAD Studio
移動先: 案内検索

VCL フォーム アプリケーションの作成方法 への移動


VCL アプリケーションのすべてのフォームを、一度にメモリに入れておく必要はありません。 読み込み時に必要なメモリ量を減らすために、アプリケーションは、必要になった場合にのみ使用できるようフォームを作成するようにすることができます。 たとえばダイアログ ボックスは、ユーザーとやり取りする間のみメモリ内にあれば構いません。 RAD Studio を使用して、次のプロシージャは、モーダル フォームを動的に作成します。 フォームを動的に作成することと、自動生成 VCL フォームを表示することの主な違いは、起動時に 2 つ目のフォームの呼び出しを削除し、フォームを動的に作成するコードを記述することです。

VCL アプリケーションの構築は、次の手順で行います:

  1. プロジェクト ディレクトリを作成。
  2. プロジェクトに 2 つのフォームを作成。
  3. 2 つ目のフォームの呼び出しを起動時に削除。
  4. フォームをリンク。
  5. モーダル フォームを作成、表示するコントロールを、メイン フォーム上に作成。その後、イベント ハンドラを記述。
  6. アプリケーションをビルドして実行。

2 つのフォームを作成するには

  1. [ファイル|新規作成|その他...|Delphi プロジェクト(または C++Builder プロジェクト)] を選択し、[VCL フォーム アプリケーション]アイコンをダブルクリックします。 VCL フォーム デザイナ に Form1 が表示されます。
  2. [ファイル|新規作成|その他...|Delphi プロジェクト|Delphi ファイル] または [ファイル|新規作成|その他...|C++Builder Files] を選択し、[フォーム] アイコンをダブルクリックします。 VCL フォーム デザイナ に Form2 が表示されます。

Form2 の呼び出しを起動時に削除するには

  1. [プロジェクト|オプション|フォーム] を選択します。 [プロジェクト オプション] ダイアログが表示されます。
  2. Form2 を [自動作成フォーム]リストで選択し、[>] をクリックします。 Form2 が [使用可能フォーム]リストに移動します。
  3. [OK] をクリックして、ダイアログを閉じます。

Form1 と Form2 をリンクするには

  1. Form1 を選択し、[ファイル|ユニットを使う]を選択します。 [ユニットの使用]ダイアログが表示されます。
  2. Form2(Form1 が参照する必要があるフォーム)を、このダイアログで選択します。
  3. [OK] をクリックします。 Delphi の場合、ユニット名 Unit2 を含む uses 句は、Unit1 の実装セクション内に配置されます。 C++ の場合、#include "Unit2.h" 指令が、Unit1.h に追加されます。

Form2 から Form1 を表示する

  1. 必要に応じて Form1 を選択し、それから、ツール パレット[Standard] ページから、フォームに TButton を配置します。
  2. オブジェクト インスペクタ で Button1 を選択した状態で、[イベント]タブ上で OnClick イベントをダブルクリックします。 コード エディタ が、TForm1.Button1Click(Delphi)、または、TForm1::Button1Click(C++)のイベント ハンドラ ブロックにカーソルがある状態で表示されます。
  3. 次のイベント処理コードを入力します:
Form2 := TForm2.Create(self);
try
  Form2.ShowModal;
finally
  Form2.Free;
end; 
Form2 = new TForm2( this );
try {
  Form2->ShowModal();
} __finally {
  Form2->Free();
}

アプリケーションをビルドして実行するには

  1. プロジェクトでファイルを保存します。それから、[実行|実行」を選択します。 アプリケーションが実行され、Form1が表示されます。
  2. ボタンをクリックします。 Form2 が表示されます。
  3. フォームの右上端の X をクリックします。 Form2 は閉じられ、Form1 がアクティブ フォームになります。

関連項目