Случайный выбор из списка

Цель работы -создать программу, выполняющую следующие действия:

1. После запуска программы в окне изображается три поля.

2. По щелчку мышью на кнопке «Случайный выбор» из трех слов составляется предложение случайным образом.

3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: поле со списком ComboBox, командная кнопка Button.

3. Выполнить следующие действия:

Таблица 8.

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Form1	Properties	Caption	Установка имени формы «Сочинитель»
Events	OnCreate	ComboBox1.ItemIndex:=0; ComboBox2.ItemIndex:=0; ComboBox3.ItemIndex:=0;
ComboBox1 (Вкладка Standard)	Properties	Style	Выберите значение cSDropDownList из раскрывающегося списка
Items	Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK.

Продолжение таблицы 8.
Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
ComboBox2 (Вкладка Standard)	Properties	Style	Выберите значение cSDropDownList из раскрывающегося списка
Items	Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK.
ComboBox3 (Вкладка Standard)	Properties	Style	Выберите значение cSDropDownList из раскрывающегося списка
Items	Щелкните на кнопке построителя. Откроется окно String List Editor (Редактор списка строк). Ввести пункты списка по одному в каждую строчку, завершая ввод нажатием клавиши Enter. После того как список готов, щелкнуть на кнопке OK.
Button1 (Вкладка Standard)	Properties	Caption	Установка имени кнопки «Случайный выбор»
Events	OnClick	ComboBox1.ItemIndex:= Random(ComboBox1.Items.Count); ComboBox2.ItemIndex:= Random(ComboBox2.Items.Count); ComboBox3.ItemIndex:= Random(ComboBox3.Items.Count);

4. Сохраните проект, запустите и протестируйте его.

Таблица 9.