Книга: Delphi. Учимся на примерах
Разработка формы
Разработка формы
Создайте новый проект Delphi и присвойте свойству Caption (заголовок) формы значение Игра. Угадывание чисел. Вверху формы будут расположены элементы управления для настройки диапазона угадываемых чисел. Разместим на форме три компонента Label (метки) категории Standard и два компонента Edit (поле ввода) той же категории. Изменим их свойства согласно табл. 9.1.
Таблица 9.1. Свойства компонентов для настройки диапазона угадываемых чисел
| Компонент | Свойство | Значение | Пояснение |
|---|---|---|---|
| Label1 | Caption | Диапазон чисел: | Надпись метки |
| Font.Style | [fsBold] | Начертание шрифта — полужирное | |
| Left | 8 | Отступ слева | |
| Top | 16 | Отступ сверху | |
| Label2 | Caption | от | Надпись метки |
| Font.Style | [fsBold] | Начертание шрифта — полужирное | |
| Left | 104 | Отступ слева | |
| Top | 16 | Отступ сверху | |
| Label3 | Caption | до | Надпись метки |
| Font.Style | [fsBold] | Начертание шрифта — полужирное | |
| Left | 216 | Отступ слева | |
| Top | 16 | Отступ сверху | |
| Edit1 | Name | start | Новое имя поля, предназначенного для ввода начального числа диапазона |
| Text | 1 | Содержимое поля | |
| Left | 128 | Отступ слева | |
| Top | 8 | Отступ сверху | |
| Width | 57 | Ширина | |
| Edit2 | Name | finish | Новое имя поля, предназначенного для ввода конечного числа диапазона |
| Text | 1000 | Содержимое поля | |
| Left | 256 | Отступ слева | |
| Top | 8 | Отступ сверху | |
| Width | 57 | Ширина |
Разместите на форме под этими компонентами еще один компонент Label, назовите его pl1 (свойство Name), а свойству Caption присвойте значение Первый игрок:. Справа от метки pl1 разместите компонент Edit, свойству Name которого присвойте значение ch1, а свойству Text — значение 0. Справа от поля ch1 разместите еще один компонент Label. Присвойте ему имя znak1 и очистите свойство Caption.
Под компонентами pl1, ch1 и znak1 разместите аналогичные компоненты для второго игрока, присвоив им имена рl2, ch2 и znak2 соответственно. Свойству рl2.Caption присвойте значение Второй игрок:, свойству ch2.Text — значение 0, а свойство znak2.Caption очистите. Поскольку по умолчанию игру будет начинать первый игрок, мы должны заблокировать ввод для второго игрока. Для этого измените значение свойства Enabled для компонентов ch2 и р12 на False.
Разместите на форме справа от компонентов znak1 и znak2 еще один компонент Label и измените его свойства согласно табл. 9.2.
Таблица 9.2. Свойства нового компонента Label
| Свойство | Значение | Пояснение |
|---|---|---|
| Name | X | Новое имя компонента |
| Caption | X | Надпись метки |
| Font.Color | clRed | Цвет шрифта — красный |
| Font.Name | Courier New | Название шрифта |
| Font.Size | 36 | Размер шрифта |
| Font.Style | [fsBold] | Начертание шрифта — полужирное |
| Height | 54 | Высота метки |
Ниже всех компонентов разместите компонент Checkbox (флажок) категории Standard. Присвойте его свойству Name значение comp, a свойству Caption — значение Играть против компьютера (проследите также, чтобы свойство Checked было равно False).
Ниже разместите две кнопки (компонент Button категории Standard), присвоив их свойству Caption значения Принять вариант и Новая игра. Полученная форма должна соответствовать рис. 9.1.
Рис. 9.1. Форма для игры "Угадывание чисел"
Оглавление книги
