Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Практическая работа № 16
|
|
«Электронный альбом»
Цель работы -создать программу, выполняющую следующие действия:
- После запуска программы в окне изображается рисунок, выбранный первым переключателем из раскрывающегося списка.
- Выбираем необходимый переключатель, рисунок из соответствующего раскрывающегося списка.
- Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.
 |
Описание плана разработки программы
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. Сохраните проект, запустите и протестируйте его.
Date: 2015-09-18; view: 974; Нарушение авторских прав