Книга: Delphi. Учимся на примерах
Разработка формы
Разработка формы
Создадим новый проект Delphi. Мелькающее окно у нас будет необычным: оно будет без заголовка и не прямоугольным, а эллиптической формы. Измените свойства формы согласно табл. 8.1.
Таблица 8.1. Свойства формы игры "Успей щелкнуть"
| Свойство | Значение | Пояснение |
|---|---|---|
| BorderStyle | bsNone | Окно программы будет отображаться без границы и заголовка |
| FormStyle | fsStayOnTop | Окно программы должно располагаться поверх всех остальных окон, поскольку игрок не всегда будет "попадать" по нашему окну, а значит своими "промахами" будет активизировать другие окна |
| Color | clWindowText | Цвет формы — черный |
| Height | 72 | Высота |
| Width | 208 | Ширина |
Разместите на форме компонент Label категории Standard. Измените его свойства согласно табл. 8.2.
Таблица 8.2. Свойства первого компонента Label
| Свойство | Значение | Пояснение |
|---|---|---|
| Caption | Попадания: | Надпись метки |
| Font.Color | clLime | Цвет шрифта — светло-зеленый |
| Font.Name | Courier New | Название шрифта |
| Font.Size | 12 | Размер шрифта |
| Font.Style | [fsBold] | Начертание шрифта — полужирное |
| Left | 16 | Отступ слева |
| Top | 16 | Отступ сверху |
Разместите на форме еще один компонент Label и измените его свойства согласно табл. 8.3.
Таблица 8.3. Свойства второго компонента Label
| Свойство | Значение | Пояснение |
|---|---|---|
| Name | popad | Новое имя компонента |
| Caption | 0 | Надпись метки |
| Font.Color | clRed | Цвет шрифта — красный |
| Font.Name | Courier New | Название шрифта |
| Font.Size | 16 | Размер шрифта |
| Font.Style | [fsBold] | Начертание шрифта — полужирное |
| Left | 120 | Отступ слева |
| Top | 16 | Отступ сверху |
Разместите на форме третий компонент Label, который будет отображать предельное число "попаданий", и измените его свойства согласно табл. 8.4.
Таблица 8.4. Свойства третьего компонента Label
| Свойство | Значение | Пояснение |
|---|---|---|
| Caption | /10 | Надпись метки |
| Font.Color | clRed | Цвет шрифта — красный |
| Font.Name | Courier New | Название шрифта |
| Font.Size | 16 | Размер шрифта |
| Font.Style | [fsBold] | Начертание шрифта — полужирное |
| Left | 144 | Отступ слева |
| Top | 16 | Отступ сверху |
Напоследок разместите на форме компонент Timer категории System. Результат оформления формы должен соответствовать рис. 8.1.
Рис. 8.1. Форма для игры "Успей щелкнуть"
Оглавление книги
