C++BuilderのRadioGroupについて

質問

今、単純にラジオグループを作成し、RadioGroupのItemsを３つ、それぞれ「a」、「b」、「c」と設定して、そのアルファベットのラジオボタンが押されたらTEditにそのアルファベットを表示させるというものを作成していますが、うまくいきません。どなたかアドバイスお願いします。
現在のプログラムを以下に書きます。

RadioGroup = new RadioGroup(Form1);
RadioGroup->Items->Add("a");
RadioGroup->Items->Add("b");
RadioGroup->Items->Add("c");
if(RadioGroup->ItemIndex==0)
Edit1->Text="a";
else if(RadioGroup->ItemIndex==1)
Edit1->Text="b";
else if(RadioGroup->ItemIndex==2)
Edit1->Text="c";
else
Edit1->Text="not Selected";

回答No.2

yama5140 · ベストアンサー

（ No.1 さんより手軽に・・。C++Builder5 ）

　・フォームに「 RadioGroup 」を１つ置きます。
　・左の「オブジェクトインスペクタ」の「 Items の右端・・・」をつつきます。
　・a（リターン）b（リターン）c（リターン）と入力します。

つぎに、

　・フォームに「 Edit 」を１つ置きます。
　・左の「オブジェクトインスペクタ」の「 Text 」に not Selected（質問者様のソースから）と入れます。

以上で、フォームの設計（それぞれの大きさなどは、動いてから調整）が終了。

つぎに、

　・フォーム上の RadioGroup1 をダブルクリック（★★★重要：RadioGroup と Builder が結合）します。
　・エディタが開きますので、カーソル位置に

if( 0 == RadioGroup1->ItemIndex ) Edit1->Text = "a";
if( 1 == RadioGroup1->ItemIndex ) Edit1->Text = "b";
if( 2 == RadioGroup1->ItemIndex ) Edit1->Text = "c";

　を入力します（ else は不要）。

以上で、完成ですので、実行（Ｆ９）。

ソースをいじくるのは、３行だけです。

回答No.1

chie65535

Project1を新規作成して、Form1にEdit1を配置。

Form1を「テキストとして表示」して、以下をコピペ。
==========Form1のテキスト表示ここから==========
object Form1: TForm1
Left = 191
Top = 114
Width = 373
Height = 168
Caption = 'Form1'
Color = clBtnFace
Font.Charset = SHIFTJIS_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'ＭＳ Ｐゴシック'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 12
object Edit1: TEdit
Left = 8
Top = 112
Width = 345
Height = 20
TabOrder = 0
Text = 'Edit1'
end
end
==========Form1のテキスト表示ここまで==========

コピペしたら「フォームとして表示」に戻して、以下のソースコードに差し替え。

==========Project1.cppここから==========
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Project1.res");
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
==========Project1.cppここまで==========

==========Unit1.hここから==========
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE 管理のコンポーネント
TEdit *Edit1;
void __fastcall FormCreate(TObject *Sender);
void __fastcall RadioGroupClick(TObject *Sender);
void __fastcall FormDestroy(TObject *Sender);
private: // ユーザー宣言
public: // ユーザー宣言
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
==========Unit1.hここまで==========

==========Unit1.cppここから==========
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TRadioGroup *RadioGroup;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
RadioGroup = new TRadioGroup(Form1->Handle);
RadioGroup->Items->Add("a");
RadioGroup->Items->Add("b");
RadioGroup->Items->Add("c");
RadioGroup->ItemIndex = -1;
RadioGroup->Color = Form1->Color;
RadioGroup->Width = 300;
RadioGroup->Height = 80;
RadioGroup->Left = 10;
RadioGroup->Top = 10;
RadioGroup->Caption = "RadioGroup Test";
RadioGroup->Ctl3D = true;
RadioGroup->OnClick = RadioGroupClick;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroupClick(TObject *Sender)
{
if(RadioGroup->ItemIndex==0)
Edit1->Text="a";
else if(RadioGroup->ItemIndex==1)
Edit1->Text="b";
else if(RadioGroup->ItemIndex==2)
Edit1->Text="c";
else
Edit1->Text="not Selected";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete RadioGroup;
}
//---------------------------------------------------------------------------
==========Unit1.cppここまで==========

差し替えたらコンパイルして実行。