Задача 6. Любимый напиток
Программа Любимый напиток(рис. 7), демонстрирует использование компонента combовох. списки компонентов ComboBox2 И СоmbоВохЗ формируются во время работы программы (делает это конструктор формы). Пользователь может добавить элементы в списки компонентов comboBox2 и СоmbоВохЗ, однако элемент в список компонента СоmbоВохЗ добавляется только в том случае, если такого элемента в списке нет.
Рис. 7
Вывод: Выполняя это задание мы узнали о нескольких свойствах ComboBox.
Листинг
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
// сформировать список компонента СотЬоВохЗ
ComboBox2->Sorted = true; / / список упорядочен
ComboBox2->Items->Add("Кока-Кола");
ComboBox2->Items->Add("меринда") ;
ComboBox2->Items->Add("Пепси-Кола");
ComboBox2->Items->Add("Спрайт");
ComboBox2->Items->Add("Фанта");
ComboBox2->Sorted = true;// сформироватьсписоккомпонентаСотЬоВохЗComboBox3->Items->Add("чай") ;
ComboBox3->Items->Add("чайслимоном");
ComboBox3->Items->Add("Koфечерный") ;
ComboBox3->Items->Add("Koфесосливками");
ComboBox3->Items->Add("KaKao");
}
//---------------------------------------------------------------------------
// выборэлементавсписке ComboBox
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
Label1->Caption = ComboBox1->Text;
}
//---------------------------------------------------------------------------
// щелчокнаэлементеспискакомпонента ComboBox
void __fastcall TForm1::ComboBox2Click(TObject *Sender)
{
Label2->Caption = ComboBox2->Items->Strings[ComboBox2->ItemIndex];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox3Click(TObject *Sender)
{
// щелчок на элементе списка компонента СотЬоВохЗ
Label3->Caption = ComboBox3->Items->Strings[ComboBox3->ItemIndex];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox2KeyPress(TObject *Sender, char &Key)
// нажатие клавиши в поле редактирования компонента ComboBox2
{
if (Key == VK_RETURN)
{
// Пользователь ввел в поле редактирования строку- // и нажал <Enter>. Добавим строку в список.
intn = ComboBox2->Items->Add(ComboBox2->Text);
ComboBox2->ItemIndex = n;
Label2->Caption = ComboBox2->Items->Strings[n];
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox3KeyPress(TObject *Sender, char &Key)
{
AnsiStringst;// строка, которую ввел пользователь // в поле редактирования компонента //ComboBox
if (Key == VK_RETURN)
// Пользователь ввел в поле редактирования строку // и нажал <Enter>. Если такой строки в списке нет, // добавим ее в список
{
st = ComboBox3->Text.Trim();
if ( ComboBox3->Items->IndexOf(st) == -1 )
{
// добавить
int n = ComboBox3->Items->Add(st);
ComboBox3->ItemIndex = n;
Label3->Caption = ComboBox3->Items->Strings[n];
}
}
}