概要：別ウインドウの利用。
メインウインドで入力した値に別ウインドで選択した処理をして出力する。

＜作業＞
１．新規プロジェクトを開始する。
２．フォームのCaptionを変更（表参考）
３．スピードバーの[フォームの作成]をクリックし、新しいフォームを作成する。
４．ユニット１をUsample31、ユニット２をUdia31、プロジェクトをsample31で保存。
５．メインフォーム（フォーム１）にボタン１つ、ビットマップボタン１つ、エディットボックス１つ、パネルを２つ置く。
６．"Udia31.h"をインクルードする。
７．button1をダブルクリック、イベントハンドラの記述。
Form2->ShowModal();
８．フォーム２のBorderStyleプロパティをbsDialogにする。
９．フォーム２のPositionプロパティをpoScreenCenterにする。
１０．フォーム２のCaptionプロパティを「設定」にする。
１１．フォーム２にラジオグループを置く。
１２．ラジオグループをクリック。
１３．Itemプロパティの省略記号をクリック、次のように入力。

   │	*2     │                                                                
   │	*5     │                                                                
   │	*10    │                                                                

	Form2->ShowModal();
	float x,y;
	x=StrToFloat(input->Text);
	y=Henkan(StrToInt(Form2->RadioGroup1->ItemIndex),x);
	output->Caption=FloatToStr(y);

//Usamp31.cpp
//ダイアログを使ったプログラム

//---------------------------------------------------------------------------
#include 
#pragma hdrstop

#include "Usamp31.h"
#include "Udia31.h"

//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------

float Henkan(int type,float x)
{
	float yy;

    switch(type)
    {
    	case 0:yy=x*2;break;
        case 1:yy=x*5.0;break;
        case 2:yy=x*10.0;break;

    }

    return(yy);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 	int Val=Form2->ShowModal();

    float x,y;

    if(Val==mrOk)
    {
    x=StrToFloat(input->Text);

    y=Henkan(StrToInt(Form2->RadioGroup1->ItemIndex),x);

    output->Caption=FloatToStr(y);
    }


}
//---------------------------------------------------------------------------

C++Builder入門トップ