|
|||
> В Инспекторе Объектов выберитеTabbedNotebook1 и в свойствеActivePage (активная страница) выберите из спискаBonpoc1.> На поверхности активной страницы подготовьте для ввода текста место в виде панели в рамке. Для этого из палитры компонентов добавьте на первую страницу компоненту Panel и растяните его мышью по верхней части страницы (рис. 2). > В Инспекторе Объектов в свойстве Color двойным щелчком мыши вызовите палитру цветов и установите, например, зеленый цвет панели. > В свойстве Caption удалите запись Panel. > Сделайте для панели рамку, как у картины. Для этого свойству Bevelinner (внутренняя фаска) присвойте значение Lowered (опущенная), а свойству Bevelouter (внешняя фаска) — значение Raised (поднятая). > На готовую панель добавьте компонент Label, растяните его на всю панель и для центрирования текста свойству Autosize компонента Label установите значение false, а свойству Alignment — taCenter. > Запишите в свойстве Caption компонента Label Когда родился А. С. Пушкин?, двойным щелчком мыши вызовите в свойстве Font окно Шрифт и установите цвет, вид и размер шрифта. На диалоговую страницу нам надо поместить несколько вариантов ответов, среди которых тестируемый должен будет выбирать ответ, который он считает правильным. Для альтернативного выбора в ряду элементов в палитре Standard существует компонент RadioGroup, который объединяет несколько радиокнопок в одну группу. (Такое название используется по аналогии с кнопками радиоприемника, когда только одна кнопка может быть включена для выбора той или иной радиопрограммы из некоторого их множества. ) > Добавьте в форму «Тестирование» на страницу первого вопроса компонент RadioGroup и в его свойстве Caption задайте заголовок группе Варианты ответов. > В свойстве Items (элементы) двойным щелчком мыши вызовите окно String List Editor (Редактор Списка строк). > В этом редакторе в первой строке запишите В 1867 году, во второй — В 1799 году, в третьей — В 44 году до Н. Э.. в четвертой — В 1917 году и щелкните по кнопке ОК (правильным будет второй ответ). Каждый вариант ответа поместится в панель компонента RadioGroup напротив своей радиокнопки. > Скопируйте на вторую страницу диалога готовую панель с первой страницы. Для этого на первой странице выделите панель щелчком мыши и выполните команду Copy (копировать) из меню Edit (редактировать). В Инспекторе Объектов выберите TabbedNotebook1 В свойстве ActivePage выберите Вопрос2 и выполните команду Paste (вставить) из меню Edit > На вставленную панель с помощью компонентов Label и Font введите и отформатируйте текст второго вопроса: Заставкой какого программного продукта является эта картинка? > Для вставки рисунка добавьте на страницу в область панели компонент Image из Additional и двойным щелчком мыши в черной рамке вызовите окно редактирования рисунка Picture Editor. С помощью кнопки Load в этом окне вызовите окно загрузки файла и загрузите файл athena. bmp из каталога delphi\images\splash\16colour. > Свойству Stretch рисунка присвойте значение true. Ø Добавьте на страницу второго вопроса компонент RadioGroup, задайте заголовок группы и введите варианты ответов. Ø > Вызовите третью страницу и, как было описано ранее, поместите на ней вопрос: При каких обстоятельствах слышен этот звук? > Для проигрывания звука добавьте на страницу компонент Mediaplayer из палитры System. Этот компонент предназначен для управления мультимедийными устройствами: компакт-диском, MIDI-секвенсером и др., для чего имеет набор управляющих кнопок. Сделайте его невидимым на странице, установив свойству Visible значение false. > Введите варианты ответов: Заставка телепередачи «Угадай мелодию». При запуске Windows'95, На дискотеке. > Выберите файл с записью музыки, который будет проигрывать наш медиаплейер. В Инспекторе Объектов дважды щелкните мышью на свойстве Filename и в появившемся окне Открытие файла загрузите файл Windows\media\3BУKMи~1. wav. Это фирменная звуковая заставка Windows'95, поэтому правильным здесь будет второй ответ. > Добавьте в панель кнопку Button и в ее свойстве Caption запишите Звук > Введите в программу модуля формы команду, которая будет запускать медиаплейер при нажатии кнопки. Для этого двойным щелчком мыши на кнопке Звук вызовите программный код модуля и в место, где мигает курсор, запишите
|
|||
|