Лабораторная работа №3

 

Использование компонента StringGrid

 

Цель работы: Освоить методику использования компонента StringGrid.

 

Требуется создать приложение отображающее расписание занятий в табличной форме. Предметы выбираются из списка и по щелчку мыши заносятся в выбранную ячейку таблицы.

 

Методика создания приложения

 

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	7
StringGrid1	RowCownt	7
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];

9. Запустить приложение. Убедиться в работоспособности всех функций приложения.