Улюблений напій

Програма демонструє використання компонента ComboBox. Списки ComboBox 2 і ComboBox3 формуються під час роботи програми; користувач може додавати нові напої, але у ComboBox3 напій додається лише у тому випадку, якщо такого ще немає у списку.

Код написання програми

// Головна форма
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)v {
ComboBox1->Sorted = true; // Сортування рядків випадаючого списку
ComboBox1->Items->Add("Shake"); ComboBox1->Items->Add("Jack-Daniels") ; // Додавання рядків
ComboBox1->Items->Add("Львівське 17-15"); // до випадаючого
ComboBox1->Items->Add("Хортиця"); // списку
ComboBox1->Items->Add("Martini");
ComboBox2->Sorted = true; // Сортування рядків випадаючого списку
ComboBox2->Items->Add("Кока-Кола");
ComboBox2->Items->Add("Мірінда") ; // Додавання рядків
ComboBox2->Items->Add("Пепсі"); // до випадаючого
ComboBox2->Items->Add("Спрайт"); // списку
ComboBox2->Items->Add("Фанта");
ComboBox3->Sorted = true; // Сортування рядків випадаючого списку
ComboBox3->Items->Add("Чай") ;
ComboBox3->Items->Add("Чай з лимоном"); // Додавання рядків
ComboBox3->Items->Add("Чорна кава") ; // до випадаючого
ComboBox3->Items->Add("Кава із вершками"); // списку
ComboBox3->Items->Add("Kaкао");
}
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
Label1->Caption = ComboBox1->Text; // Перенесення тексту з випадаючого списку до Label1
}
void __fastcall TForm1::ComboBox2Click(TObject *Sender)
{
Label2->Caption = ComboBox2->Items->Strings[ComboBox2->ItemIndex]; // Перенесення тексту з випадаючого списку до Label2
}
void __fastcall TForm1::ComboBox3Click(TObject *Sender)
{
Label3->Caption = ComboBox3->Items->Strings[ComboBox3->ItemIndex]; // Перенесення тексту з випадаючого списку до Label3
}
void __fastcall TForm1::ComboBox2KeyPress(TObject *Sender, char &Key)
{
if (Key == VK_RETURN) // Умова, що спрацьовує при натисненні "Enter"
{
int n = ComboBox2->Items->Add(ComboBox2->Text); // Додавання нового рядку до випадаючого
ComboBox2->ItemIndex = n; // списку і
Label2->Caption = ComboBox2->Items->Strings[n]; // запис його до Label2
}
}
void __fastcall TForm1::ComboBox3KeyPress(TObject *Sender, char &Key)
{
AnsiString st;
if (Key == VK_RETURN) // Умова, що спрацьовує при натисненні "Enter"
{
st = ComboBox3->Text.Trim(); // Додавання нового рядку
if ( ComboBox3->Items->IndexOf(st) == -1 ) // до випадаючого списку, якщо такого немає
{
int n = ComboBox3->Items->Add(st); // і
ComboBox3->ItemIndex = n; // запис його до Label2
Label3->Caption = ComboBox3->Items->Strings[n];
}
}
}

Улюблений напійЗавантажити