
Практически закрепить знания и умения использования возможностей среды Delphi для формы и компонентов Panel, Label, Edit, Button.
теоретические сведения
Компонент Delphi Panel располагается на странице Standard Палитры Компонентов (значок на рисунке обведен красным).
Выбрав компонент Panel и кликнув на форме мы увидим прямоугольник в центре которого будет надпись Panel1. Цифра 1 означает номер панели на форме, то есть если нам необходимо поместить на форму еще 3 панели то их имена будут Panel2, Panel3, Panel4.
Свойство Name задает имя панели. Caption — заголовок, сначала он совпадает с Name и равна Panel1, но во многих случаях его оставляют пустым. Достаточно часто панель используют как контейнер для других компонентов.
Свойства BevelOuter и BevelInner отвечают за стиль оформления внешней и внутренней рамок. на выбор они могут выбирать один из четырех значений:
bvNone — рамка отсутствует; bvLowered — рамка вдавленной; bvRaised — рамка выпуклая; bvSpace — рамка плоская.
Свойство BorderStyle — стиль бордюра, BorderWidth — ширина бордюра.
Свойство BevelWidth задает расстояние между внутренней и внешней рамкой.
Ход работы:
- Откройте новый проект и ознакомьтесь с компонентом Panel и его свойствами, построив форму и объекты Panel1-Panel9:
компонент
BevelInner
BevelOuter
BevelWidth
BorderWidth
Panel1
bvNone
bvRaised
1
Panel2
bvNone
bvRaised
5
Panel3
bvLowered
bvRaised
1
Panel4
bvNone
bvLowered
1
Panel5
bvNone
bvLowered
5
Panel6
bvRaised
bvLowered
1
Panel7
bvRaised
bvRaised
5
5
Panel8
bvLowered
bvLowered
3
3
Panel9
bvLowered
bvRaised
4
1
- Сохраните проект с именем Образец.
- Откройте новый проект. Для выполнения практической работы нам понадобятся две формы: Form1 и Form2. Форма Form1 уже создана средой Delphi.
Создайте еще одну новую форму Form2 (File-New-Form).
Работа с формой Form1
Эту форму будем использоваться для размещения содержания всех выполненных проектов в течение учебного семестра.
- Ввести как заголовок формы Form1 свою фамилию (свойство Caption).
- Создайте на форме компонент Panel. Установите его размер по размеру формы. Для этого разверните форму на весь экран.
- Удалите загол Овоко панели (свойство Caption).
- Для оформления панели установите свойства BeveInner (внутренняя фаска) значения bvLowered, для свойства BevelOuter (внешняя фаска) — значение bvRaised, для свойства BevelWight (ширина фаски) — значение 3. Вы можете выбрать другие значения по своему усмотрению.
- На подготовленной таким образом панелиразместить компонент Label и в его свойства Caption задайте надпись содержание.
- Проследите, чтобы значением свойства Auto-Size было True (автоматическая настройка размера компонента Label под размер текста).
- С помощью свойства Font подберите для надписи соответствующий шрифт, размер шрифта, начертание, цвет.
- Создайте на панели 4 кнопки Button1-Button4. В дальнейшем мы будем добавлять на эту панель другие кнопки.
- Используя свойство Caption, разместите на кнопках Button1-4 надписи Практическая работа №1-4 соответственно, а на кнопке Button4 — надпись Выход.
- Кнопку Button1будемо использовать для перехода к форме Form2. Для этого дважды щелкнем на кнопке Button1. В то же время автоматически осуществляется переход в окно текстового редактора программы. В месте, где стоит курсор (между служебными словами Begin и End), напечатайте команду: Form2.Show; (Показать форму).
- Нажмите F12, чтобы вернуться в форму Form1.
- Кнопку Button4 (Выход) будем использовать для закрытия проекта. Дважды щелкните мышью на этой кнопке и в окне текста программы в указанном курсором месте напечатайте команду Close ;.
Запустите проект командой меню Run / Run и проверьте действие кнопок.
Работа с формой Form2. Изменение заголовка формы программным путем
- С помощью свойства Caption задайте новый заголовок формы Form2 — Практическая работа №4.
- Создайте на форме компонент Panel. Установите его размер по размеру формы.
- Удалите заголовок панели (свойство Caption).
- Для оформления панели установите свойства BevelInner (внутренняя фаска) значения bvLowered, для свойства BevelOuter (внешняя фаска) — значение bvRaised, для свойства BevelWight (ширина фаски) — значение 3. Вы можете выбрать другие значения на ваше усмотрение.
- На подготовленной таким образом панели разместите компонента Label (надпись), 1 компонент Edit и компонента Button.
- В свойстве Caption задайте такие надписи компонентам Label:Label1 — изменение заголовка формы программным путем; Label2 — введите новый заголовок.
- С помощью свойства Font подберите для надписей соответствующий шрифт, размер шрифта, начертание, цвет.
- Для компоненты Edit1 удалите текст (свойство Text).
- На кнопке Button1 сделайте надпись Изменить заголовок формы, на кнопке Button2 — содержание, на кнопке Button3 — Выход (свойство Caption).
- С помощью свойства Font подберите для надписей соответствующий шрифт, размер шрифта, начертание, цвет.
- Дважды щелкните мышью на соответствующей кнопке, войдите в окно текстового редактора программы и введите следующие команды: для кнопки Buttonl — Form2.Caption = Edit1.Text, для кнопки Button2 — Form1.Show, для кнопки Button3 — Form1.Close.
- Запустите проект на выполнение и проверьте его работу.
Сохраните проект командой File / Save All.
компонента |
свойство |
значение свойства |
программный код |
Form1 |
WindowState |
wsMaximized |
|
Caption |
Фамилия и имя |
||
Panel |
BevelInner |
bvLowered |
|
BevelOuter |
bvRalsed |
||
BevelWight |
3 |
||
Label |
AutoSize |
True |
|
Caption |
содержание |
||
Font |
По своему усмотрению |
||
Buttonl |
Caption |
Практическая работа №1 |
Form2.Show; |
Button4 |
Caption |
выход |
Close; |
Form2 |
Caption |
Практическая работа № |
|
WindowState |
wsNormal |
||
Panel |
BevelInner |
bvLowered |
|
BevelOuter |
bvRalsed |
||
BevelWight |
3 |
||
Label1 |
Caption |
Изменение заголовка формы программным путем |
|
Font |
По своему усмотрению |
||
Label2 |
Caption |
Введите новый заголовок |
|
Font |
По своему усмотрению |
||
Edit1 |
Text |
Удалите текст Editl |
|
Button1 |
Caption |
Измените заголовок формы |
Form2. Caption = Edit1. Text; |
Font |
По своему усмотрению |
||
Button2 |
Caption |
содержание |
Form1.Show; |
Font |
По своему усмотрению |
||
Вuttоп3 |
Caption |
выход |
Form1.Close; |
Font |
По своему усмотрению |
Задания для самостоятельной работы
- Откройте новый проект.
- Разместите на форме элементы управления по образцу.
- Напишите соответствующие процедуры обработки событий
- Сохраните проект в собственной папке.
- Запустите программу на выполнение.
![]() |
Form1.Color = clGreen |
![]() |
Form1.Color = clGray |
![]() |
Form1.Color = clSkyBlue |
![]() |
Label1.Font.Size = Label1.Font.Size + 10 |
![]() |
Label1.Font.Size = Label1.Font.Size-10 |
![]() |
RadioButton1.Visible = False; RadioButton2.Visible = False; RadioButton3.Visible = False |
![]() |
RadioButton1.Visible = True; RadioButton2.Visible = True; RadioButton3.Visible = True |
![]() |
RadioButton1.Enabled = False; |
Домашнее задание
- Создать проект, «Среднее арифметическое 5 целых чисел».
- Для проверки работоспособности Вашей программы можно воспользоваться следующими данными:
контрольные вопросы
- На какой странице Палитры Компонентов располагается компонент Delphi Panel.
- Для чего используют компонент Panel?
- За что отвечают свойства BevelOuter и BevelInner компонента Panel?
- Событие будет осуществляться при обработке кода Label1.Font.Size + 10 ;?
- Событие будет осуществляться при обработке кода RadioButton1.Enabled = False ;?