Воскресенье, 19.05.2024, 23:13
Главная
Регистрация
Вход
Мир софта!
Приветствую Вас Гость | RSS
Меню сайта
Категории каталога
Мои статьи [0]
WWW [42]
все про WWW технологии
Delphi и Pascal [23]
Delphi и Pascal
Программирование баз данных [0]
Программирование баз данных
JavaScript и DHTML [0]
JavaScript и DHTML
Perl [0]
Perl
Python [0]
Python
Active Server Pages [0]
Active Server Pages
Наш опрос
Какой у вас телефон
Всего ответов: 29
Главная » Статьи » 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 и Выход и получим что-то похожее на нижеприведенный рисунок:

01.gif

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

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

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

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

02.gif

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

Категория: Delphi и Pascal | Добавил: mirsoft (03.02.2008) | Автор: максим
Просмотров: 1576 | Комментарии: 3 | Рейтинг: 1.0/1 |
Всего комментариев: 2
2 Tim  
0
А где текст программы, а то сылка неработает

1 StyX  
0
ссылка не работает!!!!!! =(
очень нужен полный текст модуля..=\

Имя *:
Email *:
Код *:
Форма входа
Поиск
Друзья сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

| Copyright MyCorp © 2024 | Используются технологии uCoz |