unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

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

#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::RadioGroup1Click(TObject *Sender)
{
        Label1->Caption="您的星座是：" ;
        switch(RadioGroup1->ItemIndex)
        {
                case 0:
                        Label1->Caption=Label1->Caption+"山羊座" ;
                        break;
                case 1:
                        Label1->Caption=Label1->Caption+"金牛座" ;
                        break;
                case 2:
                        Label1->Caption=Label1->Caption+"双子座" ;
                        break;
                case 3:
                        Label1->Caption=Label1->Caption+"巨蟹座" ;
                        break;
                case 4:
                        Label1->Caption=Label1->Caption+"狮子座" ;
                        break;
                case 5:
                        Label1->Caption=Label1->Caption+"处女座" ;
                        break;
                case 6:
                        Label1->Caption=Label1->Caption+"天秤座" ;
                        break;
                case 7:
                        Label1->Caption=Label1->Caption+"天蝎座" ;
                        break;
                case 8:
                        Label1->Caption=Label1->Caption+"射手座" ;
                        break;
                case 9:
                        Label1->Caption=Label1->Caption+"魔羯座" ;
                        break;
                case 10:
                        Label1->Caption=Label1->Caption+"水瓶座" ;
                        break;
                case 11:
                        Label1->Caption=Label1->Caption+"双鱼座" ;
                        break;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Form1->Close();
}
//---------------------------------------------------------------------------