Язык паскаль онлайн

Практически закрепить знания и умения использования возможностей среды 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 задает расстояние между внутренней и внешней рамкой.

Ход работы:

1. Откройте новый проект и ознакомьтесь с компонентом 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

   

2. Сохраните проект с именем Образец.
3. Откройте новый проект. Для выполнения практической работы нам понадобятся две формы: Form1 и Form2. Форма Form1 уже создана средой Delphi.

Создайте еще одну новую форму Form2 (File-New-Form).

Работа с формой Form1

Эту форму будем использоваться для размещения содержания всех выполненных проектов в течение учебного семестра.

1. Ввести как заголовок формы Form1 свою фамилию (свойство Caption).
2. Создайте на форме компонент Panel. Установите его размер по размеру формы. Для этого разверните форму на весь экран.
3. Удалите загол Овоко панели (свойство Caption).
4. Для оформления панели установите свойства BeveInner (внутренняя фаска) значения bvLowered, для свойства BevelOuter (внешняя фаска) — значение bvRaised, для свойства BevelWight (ширина фаски) — значение 3. Вы можете выбрать другие значения по своему усмотрению.
5. На подготовленной таким образом панелиразместить компонент Label и в его свойства Caption задайте надпись содержание.
6. Проследите, чтобы значением свойства Auto-Size было True (автоматическая настройка размера компонента Label под размер текста).
7. С помощью свойства Font подберите для надписи соответствующий шрифт, размер шрифта, начертание, цвет.
8. Создайте на панели 4 кнопки Button1-Button4. В дальнейшем мы будем добавлять на эту панель другие кнопки.
9. Используя свойство Caption, разместите на кнопках Button1-4 надписи Практическая работа №1-4 соответственно, а на кнопке Button4 — надпись Выход.
10. Кнопку Button1будемо использовать для перехода к форме Form2. Для этого дважды щелкнем на кнопке Button1. В то же время автоматически осуществляется переход в окно текстового редактора программы. В месте, где стоит курсор (между служебными словами Begin и End), напечатайте команду: Form2.Show; (Показать форму).
11. Нажмите F12, чтобы вернуться в форму Form1.
12. Кнопку Button4 (Выход) будем использовать для закрытия проекта. Дважды щелкните мышью на этой кнопке и в окне текста программы в указанном курсором месте напечатайте команду Close ;.

Запустите проект командой меню Run / Run и проверьте действие кнопок.

Работа с формой Form2. Изменение заголовка формы программным путем

1. С помощью свойства Caption задайте новый заголовок формы Form2 — Практическая работа №4.
2. Создайте на форме компонент Panel. Установите его размер по размеру формы.
3. Удалите заголовок панели (свойство Caption).
4. Для оформления панели установите свойства BevelInner (внутренняя фаска) значения bvLowered, для свойства BevelOuter (внешняя фаска) — значение bvRaised, для свойства BevelWight (ширина фаски) — значение 3. Вы можете выбрать другие значения на ваше усмотрение.
5. На подготовленной таким образом панели разместите компонента Label (надпись), 1 компонент Edit и компонента Button.
6. В свойстве Caption задайте такие надписи компонентам Label:Label1 — изменение заголовка формы программным путем; Label2 — введите новый заголовок.
7. С помощью свойства Font подберите для надписей соответствующий шрифт, размер шрифта, начертание, цвет.
8. Для компоненты Edit1 удалите текст (свойство Text).
9. На кнопке Button1 сделайте надпись Изменить заголовок формы, на кнопке Button2 — содержание, на кнопке Button3 — Выход (свойство Caption).
10. С помощью свойства Font подберите для надписей соответствующий шрифт, размер шрифта, начертание, цвет.
11. Дважды щелкните мышью на соответствующей кнопке, войдите в окно текстового редактора программы и введите следующие команды: для кнопки Buttonl — Form2.Caption = Edit1.Text, для кнопки Button2 — Form1.Show, для кнопки Button3 — Form1.Close.
12. Запустите проект на выполнение и проверьте его работу.

Сохраните проект командой File / Save All.

Задания для самостоятельной работы

1. Откройте новый проект.
2. Разместите на форме элементы управления по образцу.
3. Напишите соответствующие процедуры обработки событий
4. Сохраните проект в собственной папке.
5. Запустите программу на выполнение.

	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;

Домашнее задание

1. Создать проект, «Среднее арифметическое 5 целых чисел».
2. Для проверки работоспособности Вашей программы можно воспользоваться следующими данными:

контрольные вопросы

1. На какой странице Палитры Компонентов располагается компонент Delphi Panel.
2. Для чего используют компонент Panel?
3. За что отвечают свойства BevelOuter и BevelInner компонента Panel?
4. Событие будет осуществляться при обработке кода Label1.Font.Size + 10 ;?
5. Событие будет осуществляться при обработке кода RadioButton1.Enabled = False ;?