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

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

#include <vcl.h>
#pragma hdrstop
#include "UKrC.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm21 *Form21;
//---------------------------------------------------------------------------
__fastcall TForm21::TForm21(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm21::Button1Click(TObject *Sender)
{
Memo1->Lines->Add("Ваше замовлення:");
int k=0;
if(CheckBox1->Checked){k++; Memo1->Lines->Add("Отримаєте суп");}
if(CheckBox2->Checked){k++; Memo1->Lines->Add("Отримаєте картоплю");}
if(CheckBox3->Checked){k++; Memo1->Lines->Add("Отримаєте компот");}
if(k==0) Memo1->Lines->Add("Залишаєтесь голодним");
Button1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm21::Button2Click(TObject *Sender)
{
Memo1->Clear();CheckBox1->Checked=0;CheckBox2->Checked=0;CheckBox3->Checked=0;
Button1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm21::Memo1KeyPress(TObject *Sender, char &Key)
{
Key=0;
}
//---------------------------------------------------------------------------


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