Цель работы: изучить среду визуального программирования Delphi. Дать понятие визуального конструирования формы с использованием компонентов отображения и динамическое изменение свойств компонентов

Ход работы

Создание графического интерфейса объекта. Создать приложение, в котором после запуска на форме печатается некоторый текст, например, «Первый проект на языке Delphi».

Создадим заготовку проекта, для этого свойству Caption (заголовок) формы Form1 присвоим значение “Первый проект’. Для этого активизировать форму Form 1 щелчком мыши (чтобы вокруг компонента появились черные квадратики – маркеры для изменения размера). В окне Object Inspector (Инспектор объектов) → Properties (Свойств объекта) выбрать свойство С aption и присвоить ему значение «Первый проект» (написать в ячейке справа от Caption Первый проект).

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

· С помощью элемента управления Label (Метка)

· С помощью элемента управления Edit (Одна строка)

· С помощью элемента управления Memo (Несколько строк)

Разместим на форме метку Label 1 и присвоим свойству С aption (Надпись) значение выводимого текстового сообщения

1.Выбрать на Панели инструментов класс управляющих элементов T Label и разместить экземпляр метки Label 1 на форме Form 1

2.Активизировать метку Label 1 щелчком мыши. В окне Object Inspector (Инспектор объектов) → Properties (Свойства объекта) выбрать свойство Caption (заголовок) и присвоить ему значение ‘Первый проект на языке Delphi’.

Разместим на форме текстовое поле Edit 1 и присвоим свойству Text значение выводимого сообщения (сделать самостоятельно)

Событийные процедуры. Любой объект можно связать с набором процедур, исполняемых при наступлении определенных событий, такие процедуры называют событийными процедурами

Двойной щелчок мышью по объекту вызывает окно Программного кода (Unit) с пустой заготовкой событийной процедуры (метода). Если осуществить двойной щелчок по метке Memo 1, то появится заготовка событийной процедуры TForm 1. Memo 1 Change (…); (эта надпись появляется автоматически!)

procedure TForm1.Memo1Change(Sender: TObject);

begin

… end;

В теле процедуры (между служебными словами begin и end) должен быть записан метод, т.е. последовательность операторов, которые будут выполняться при наступлении событий (нажатии на Memo 1)

Выбрать на Панели инструментов класс управляющих элементов TMemo и разместить экземпляр многострочного редактора Memo 1 на форме Form 1. В свойстве Lines удалить существующую надпись Memo 1. (щелкнув по многострочному полю Memo 1, кликнуть напротив свойства Lines и удалить там надпись Memo 1).

Активизировать Memo 1 двойным щелчком мыши, тем самым вызвать окно Программного кода с пустой процедурой TForm 1. Memo 1. Change (…); (эта надпись появляется автоматически)

В теле процедуры записать

Memo 1.Text:='Второй проект на языке Delphi';

т.е. при запуске программы, щелкнув по Memo 1, появится надпись «Второй проект на языке Delphi»

Использование кнопок. Обычно, при работе с событийными процедурами используют Кнопки (TButton). Логично, что при нажатии на кнопку с определенным именем происходит какое-либо действие. Теперь необходимо решить предыдущую задачу, но с помощью Кнопки. В дальнейшем большинство задач будет решаться при обработке события OnClick – двойной щелчок по кнопке.

Выбрать на Панели инструментов класс управляющих элементов Button и разместить экземпляр кнопки Button 1 на форме Form 1

Выбрать на Панели инструментов класс управляющих элементов T Label и разместить экземпляр метки Label2 на форме Form1

Активизировать кнопку Button1. В окне Свойств объекта выбрать свойство Caption и присвоить ему значение Моя кнопка (щелкнув по кнопке Button1, написать в колонке Properties Моя Кнопка в ячейке справа от Caption).

Активизировать Button1 двойным щелчком мыши, тем самым вызвать окно Программного кода с пустой процедурой TForm1.Button1Click(Sender: TObject); (эта надпись появляется автоматически)

В теле процедуры записать Label2. Caption :='Третий проект на языке Delphi';

т.е. при запуске программы, щелкнув по Моей кнопке, появится надпись на метке Label2 «Третий проект на языке Delphi»

Выход из программы легко осуществлять записывая в событийной процедуре оператор Close;

Установка цвета формы и параметров шрифта. Сделаем внешний вид более привлекательным и для этого изменим свойства объектов, определяющих их внешний вид.

Активизировать форму Form1. В окне свойства объекта выбрать свойство Сolor (цвет фона) и двойным щелчком открыть диалоговое окно с цветовой палитрой. Выбрать цвет, например желтый.

Активизировать метку Label1. В окне свойства объекта установить значения Color – синий, Font – Arial, жирный, 26 размер, травяной цвет символов.

Поэкспериментировать с объектами Memo1, Edit1, Label2

Для того, чтобы менять параметры шрифта с помощью кнопки при запуске программы необходимо в событийной процедуре указать, например Label2.Font.Size:=30; Label2.Font.Сolor:=clWhite; Т.е. при нажатии на кнопку размер шрифта метки 2 станет равным 30, а цвет - белым.

Для изменения начертания шрифта пишем

· Label2.Font.Style:=fsbold; {полужирный},

· Label2.Font.Style:=fsitalic; { курсив },

· Label2.Font.Style:=fsunderline; { полужирный }.

Если необходимо поменять шрифт пишем Label2.Font.Name:=’Arial’; {Arial} или Label2.Font.Name:=’Times New Roman’; {Times New Roman}

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

1. Создать проект «Вывод сообщений», в котором на форму выводится текстовое сообщение «Первое задание выполнено!» с помощью метки, одной строки и многострочного редактора, а выход из программы осуществляется щелчком по кнопке Выход. Придумать графический интерфейс программе.

2. Создать проект «Вывод сообщений в строку», в котором два различных варианта текста выводятся в строку Edit1 по щелчку по двум кнопкам. Предусмотреть возможность выхода из программы по третьей кнопке.

3. Создать проект «Печать на форме», в котором в нескольких метках при нажатии на кнопки тексты будут со следующими параметрами:

· «Times New Roman, 18, курсив, красный»

· «Courier New, 40, полужирный, зеленый»

· «Arial, 22, подчеркнутый, синий»

· «Webdings, 12, подчеркнутый курсив, желтый»

· «Monotype Corsiva, 32, полужирный»