ПРАКТИЧЕСКАЯ РАБОТА № 4 – Работа с формой и компонентами Panel, Label, Edit, Button


Практически закрепить знания и умения использования возможностей среды Delphi для формы и компонентов Panel, Label, Edit, Button.

теоретические сведения

image

Компонент 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

    image

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

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

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

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

  1. Ввести как заголовок формы Form1 свою фамилию (свойство Caption).image
  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 ;.
Читать  Практическая работа №10 "Программирование циклических вычислений"

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

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

image

  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. Запустите проект на выполнение и проверьте его работу.
Читать  Практическая работа №1 Тема: Создание простой Windows-программы

Сохраните проект командой 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

По своему усмотрению

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

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

image

image

Form1.Color = clGreen

image

Form1.Color = clGray

image

Form1.Color = clSkyBlue

image

Label1.Font.Size = Label1.Font.Size + 10

image

Label1.Font.Size = Label1.Font.Size-10

image

RadioButton1.Visible = False; RadioButton2.Visible = False; RadioButton3.Visible = False

image

RadioButton1.Visible = True; RadioButton2.Visible = True; RadioButton3.Visible = True

image

RadioButton1.Enabled = False;

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

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

image image

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

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