Т.С.П.П / Махинации с ТСПП / 2раб(тпспп) / К. В / main / Kr22

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

#include <vcl.h>
#pragma hdrstop
#include "Kr22.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm22 *Form22;
//---------------------------------------------------------------------------
__fastcall TForm22::TForm22(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm22::Button1Click(TObject *Sender)
{
Memo1->Lines->Add("Ваш заказ:");
switch(RadioGroup1->ItemIndex){
case 0:Memo1->Lines->Add("отримаєте суп");break;
case 1:Memo1->Lines->Add("отримаєте картоплю");break;
case 2:Memo1->Lines->Add("отримаєте компот");break;
default:Memo1->Lines->Add("Залишаєтесь голодним");break;
}}
//---------------------------------------------------------------------------
void __fastcall TForm22::Button2Click(TObject *Sender)
{
Memo1->Clear();RadioGroup1->ItemIndex=-1;
}
//---------------------------------------------------------------------------

void __fastcall TForm22::Memo1KeyPress(TObject *Sender, char &Key)
{
Key=0;
}
//---------------------------------------------------------------------------

void __fastcall TForm22::Button3Click(TObject *Sender)
{
Form22->Close();       
}
//---------------------------------------------------------------------------