Электронный альбом
Цель работы - создать программу, выполняющую следующие действия:
- После запуска программы в окне изображается рисунок, выбранный первым переключателем из раскрывающегося списка.
- Выбираем необходимый переключатель, рисунок из соответствующего раскрывающегося списка.
- Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
![]() |
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: рамка GroupBox, переключатель RadioBatton, раскрывающийся список ComboBox.
3. Выполнить следующие действия:
Таблица 18.
Выделенный объект | Вкладка окна
Object Inspector |
Имя свойства/
имя события |
Действие |
Form1 | Properties | Caption | Установка имени формы «Интерактивный электронный альбом» |
Events | OnCreate | RadioButton1Click(RadioButton1); | |
GroupBox1
(Вкладка Standard) |
Properties | Caption | Введите название «Части света» |
RadioBatton1
(Вкладка Standard) |
Properties | Caption | Введите название «Европа» |
Checked (Включен) | Задайте значение True | ||
Tag | Присвоить значение 0 | ||
Events | Onclick | В процедуре описать локальную переменную i.
Описать действия переключателей, используя цикл с параметром i от 0 до 5. |
|
Для создания еще пяти переключателей можно использовать метод копирования через буфер обмена. Пока объект RadioBatton1 остается выделенным, нажмите комбинацию клавиш CTRL+C. Произойдет его копирование в буфер обмена. Теперь нажмите комбинацию CTRL+V – это команда вставки объекта из буфера обмена и Delphi автоматически изменит имя объекта – новый объект получит имя RadioBatton2. |
Продолжение таблицы 18. | ||||
Выделенный объект | Вкладка окна
Object Inspector |
Имя свойства/
имя события |
Действие | |
RadioBatton2 | Properties | Caption | Введите название «Азия» | |
Tag | Присвоить значение 5 | |||
RadioBatton3 | Properties | Caption | Введите название «Африка» | |
Tag | Присвоить значение 10 | |||
RadioBatton4 | Properties | Caption | Введите название «Северная Америка» | |
Tag | Присвоить значение 15 | |||
RadioBatton5 | Properties | Caption | Введите название «Южная Америка» | |
Tag | Присвоить значение 20 | |||
RadioBatton6 | Properties | Caption | Введите название «Австралия» | |
Tag | Присвоить значение 25 | |||
Выделите все шесть переключателей. Дайте команду Edit ® Align (Правка ® Выравнивание). Откроется окно Alignment (выравнивание). Установить слева переключатель Left Sides (Левые края), а справа Space Equally (Равные промежутки). Щелкните на кнопке OK. | ||||
GroupBox2
(Вкладка Standard) |
Properties | Caption | Введите название «Города» | |
ComboBox1
(Вкладка Standard) |
Properties | Style | Выбрать значение csDropDownList (Раскрывающийся список) | |
Events | OnChange | Image1.Picture.LoadFromFile
(ListBox2.Items [ComBox1.Tag + ComboBox1.ItemIndex]); |
||
Image1
(Вкладка Additional) |
Поместить объект на рамку | |||
ListBox1
(Вкладка Standard) |
Properties | Visible | Задайте значение False | |
Items (Пункты) | Щелкнуть на кнопке построителя. Введите в список тридцать названий городов - по пять для каждой части света. | |||
ListBox2
(Вкладка Standard) |
Properties | Visible | Задайте значение False | |
Items | Щелкнуть на кнопке построителя. Введите в список тридцать имен файлов, содержащих иллюстрации. | |||
4. Сохраните проект, запустите и протестируйте его.
Листинг подпрограммы
procedure TForm1. RadioButton1Click (Sender: TObject);
var i: Integer;
begin
ComboBox1.Clear;
ComboBox1.Tag := (Sender as TRadioButton).Tag;
for i := 0 to 5 do
ComboBox1.Items.Add (ListBox1.Items [ComboBox1.Tag + i]);
ComboBox1.ItemIndex := 0;
Image1.Picture.LoadFromFile (ListBox2.Items [ComboBox1.Tag]);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RadioButton1Click(RadioButton1);
end;
procedure TForm1.ComboBox1Change (Sender: TObject);
begin
Image1.Picture.LoadFromFile (ListBox2.Items [ComboBox1.Tag + ComboBox1.ItemIndex]);
end;