Задани 1
Требуется создать приложение отображающее расписание занятий в табличной форме. Предметы выбираются из списка и по щелчку мыши заносятся в выбранную ячейку таблицы.
1. Создать приложение. На форме разместить необходимые компоненты.
2. Установить следующие свойства:
Компонент | Свойство | Значение |
Form1 | Caption | Расписание |
Form1 | BorderStyle | bsSingle |
Form1 | BorderIcons->biMaximize | false |
Label1 | Caption | Предметы |
ComboBox1 | Text | |
Button1 | Caption | Добавить |
Button2 | Caption | Удалить |
Button3 | Caption | Выход |
StringGrid1 | BorderStyle | bsNone |
StringGrid1 | ColCount | |
StringGrid1 | RowCownt | |
StringGrid1 | ScrollBars | ssNone |
3. Задать начальный список предметов в c свойстве Items компонента ComboBox1. Первый элемент в списке должен быть пустым для возможности удаления предмета из ячейки таблицы.
4. Создать обработчик события OnShow компонента Form1. Это событие возникает в момент прорисовки формы. В тело обработчика события ввести код:
AnsiString par[] = {"1 пара","2 пара","3 пара","4 пара",
"5 пара","6 пара"};
AnsiString day[] = {"Пн","Вт","Ср","Чт","Пт","Сб"};
for(int i=1;i<7;i++)
{
StringGrid1->Cells[0][i]=par[i-1];
StringGrid1->Cells[i][0]=day[i-1];
}
5. Создать обработчик события OnClick компонента Button1. В тело обработчика события вести код:
ComboBox1->Items->Add(ComboBox1->Text);
ComboBox1->Text="";
6. Создать обработчик события OnClick компонента Button2. В тело обработчика события вести код:
if(ComboBox1->ItemIndex >=1)
ComboBox1->Items->Delete(ComboBox1->ItemIndex);
7. Создать обработчик события OnClick компонента Button3. В тело обработчика события вести код:
Close();
8. Создать обработчик события OnSelectCell компонента StringGrid1. В тело обработчика события вести код:
StringGrid1->Cells[ACol][ARow]=
ComboBox1->Items->Strings[ComboBox1->ItemIndex];
Запустить приложение. Убедиться в работоспособности всех функций приложения.