На главную

Библиотека Интернет Индустрии I2R.ru

Rambler's Top100

Малобюджетные сайты...

Продвижение веб-сайта...

Контент и авторское право...

Забобрить эту страницу! Забобрить! Блог Библиотека Сайтостроительства на toodoo
  Поиск:   
Рассылки для занятых...»
I2R » И2Р Программы » Программирование » Delphi и Pascal

Программирование в Delphi. Создание простой тестирующей программы

Эта статья покажет вам, как можно использовать в своих программах компоненты закладок Standard и Additional, которые были не рассмотрены в предыдущей статье. Мы попробуем создать программу, которая будет задавать вопросы экзаменуемому и предлагать варианты ответов (кстати, на ее основе можно довольно легко создавать программы типа "О, Счастливчик!").

Итак, приступим. Начнем новый проект (File/New Application). Присвоим свойству Caption формы значение Тестовая программа. Предположим для простоты, что на каждый вопрос будет предложено по четыре варианта ответов, из которых правильным может быть только один. Также, для простоты, ограничим число символов в одном вопросе до 100 (чтобы вопрос помещался на одной строке). Теперь приступим к размещению компонентов на форме, или, как мы это назвали раньше, к дизайну.

Для размещения на форме текстовых сообщений хорошо подойдет компонент Label, расположенный на закладке Standard или StaticText, расположенный на закладке Additional. Расположим компонент Label1 на форме. Свойство Caption этого компонента содержит тот текст, который будет выведен на форму. Изменим текст на Вопрос:. Если вам не нравится шрифт, которым написан этот текст, то не отчаивайтесь, его можно очень легко изменить. Щелкнем на свойстве Font в инспекторе объектов. Теперь еще раз на кнопке с тремя точками справа от надписи (TFont). Появится окно Шрифт в котором вы можете по собственному усмотрению изменить шрифт, его стиль, цвет и другие параметры. Сделайте это по своему вкусу.

Теперь добавим на форму еще одну "метку" Label2 справа от первой. В нее мы будем помещать текст вопроса. Пока удалим из нее текст (очистим свойство Caption). Для красоты можно обвести область, отводимую под вопрос фаской (Bevel), располагающейся на закладке Additional. Свойство Shape фаски задает ее стиль. Я выбрал стиль bsFrame. Теперь осталось отвести место под ответы и добавить кнопки ОК и Выход. Для ответов в нашем случае больше всего подойдет компонент RadioGroup. Он находится на закладке Standard палитры компонентов. Разместим этот компонент на форме и изменим значение его свойства Caption на Варианты ответов. Свойство Items компонента RadioGroup задает строки, состоящие из переключателей RadioButton. Щелкните на кнопке с тремя точками справа от свойства Items и добавьте четыре строки: Первый, Второй, Третий и Четвертый. Теперь добавим две обычные кнопки Button, и изменим их свойство Caption на OK и Выход и получим что-то похожее на нижеприведенный рисунок:

Теперь приступим к программированию.

Кликнув по ссылке вы можете посмотреть на полный текст модуля Unit1 с необходимыми пояснениями. Так как описание каждого отдельного шага займет много места, да и вы уже знаете, как можно писать обработчики событий для различных компонентов.

Надеюсь, что комментарии в программе достаточно подробно поясняют каждую команду. Остается добавить, что писались обработчики событий для формы и кнопок. Для формы - использовалось событие FormCreate (создание формы). Это событие возникает при создании формы, оно в нашей программе происходит лишь один раз - во время запуска приложения. Остальные события - по нажатию кнопок.

Запустите программу и посмотрите на результат. Довольно неплохо, не так ли?

На этом пока мы закончим. Думаю, что у читателя появилась уверенность в своих силах и способностях и он сможет создавать более сложные программы с использованием рассмотренных компонентов.

Вячеслав Понамарев
Софтерра

Другие разделы
C, C++
Java
PHP
VBasic, VBS
Delphi и Pascal
Новое в разделе
Базы данных
Общие вопросы
Теория программирования и алгоритмы
JavaScript и DHTML
Perl
Python
Active Server Pages
Программирование под Windows
I2R-Журналы
I2R Business
I2R Web Creation
I2R Computer
рассылки библиотеки +
И2Р Программы
Всё о Windows
Программирование
Софт
Мир Linux
Галерея Попова
Каталог I2R
Партнеры
Amicus Studio
NunDesign
Горящие путевки, идеи путешествийMegaTIS.Ru

2000-2008 г.   
Все авторские права соблюдены.
Rambler's Top100