Для завершения выполнения программы и перехода в режим проектирования необходимо закрыть окно главной формы.

Если никаких ошибок обнаружено не было, введены исходные данные, получены ожидаемые результаты, перейти к п. 9. Если Delphi обнаружил любые ошибки, нужно изменить интерфейс приложения или полученные результаты не совпадают с подготовленными тестами, то перейти к п.8.

8. Внесение изменений в проект.

Если необходимо внести изменения в интерфейс приложения, то см. п.3, если изменяются или создаются новые процедуры обработки событий, то см. п.5.

При редактировании программного кода модулей или проекта используются методы работы с текстом в любых текстовых редакторах в OC Windows. Для работы с Буфером Обмена можно использовать команды меню Edit.

Пункты 8, 6, 7 повторяются до тех пор, пока на экране не будут получены результаты, совпадающие с подготовленными тестами, а интерфейс и функционирование проекта не будут соответствовать поставленной задаче.

9. Вывод программ и форм на принтер.

В ИСР Delphi можно распечатать вид формы на этапе проектирования, текст всего модуля или выделенной его части. Для этого необходимо:

· сделать активным модуль или форму;

· выполнить команду File – Print…. Появится диалоговое окно Print Selection для модуляили Print Form для формы.

· щелкнуть по кнопке Setup, выбрать принтер; при необходимости установить альбомную ориентацию и щелкнуть по кнопке ОК;

· щелкнуть по кнопке ОК.

Для того, чтобы вывести на принтер окно формы в режиме выполнения:

· перейти в режим выполнения (п.7);

· сделать активной форму с исходными данными и/или результатами, которую нужно распечатать;

· нажать комбинацию клавиш Alt+PrtScr, окно с формой помещается в Буфер Обмена;

· загрузить текстовый редактор, например Word, или перейти в него;

· вставить данные из Буфера Обмена в документ Word (например, с помощью команды Правка - Вставить);

· вывести документ Word на принтер с помощью команды Файл – Печать…. Предварительно может быть выполнен просмотр документа и изменение параметров страницы.

10. Завершение работы Delphi. Закрыть главное окно Delphi.

Пример1. Ввести имя и группу пользователя и после щелчка мышью по кнопке Привет вывести приветствие, включающее введенные фамилию и группу. Интерфейс программы представлен на рисунке:

Таблица используемых компонентов и их свойств, которые устанавливаются на вкладкеProperties инспектора объектов (Object Inspector).

Элемент интерфейса	Визуальный компонент	Свойство компонента	Значение свойства
Заголовок окна	Form1	Caption	Первая форма
Введи имя	Label1	Caption	Введи имя
Поле ввода имени	Edit1	Text
Введи группу	Label2	Caption	Введи группу
Поле ввода группы	Edit2	Text
Нажми	Label3	Caption	Нажми
Кнопка Привет	Button1	Caption	Привет
<Выводимое приветствие>	Label4	Caption

Для всех компонентов можно изменить шрифт с помощью свойства Font.

Процедура обработки события OnClick для кнопки Привет (записывается в модуле после двойного щелчка мышью по кнопке Привет или на вкладке Events события OnClick):

procedure TForm1.Button1Click(Sender: TObject);

var

im:string;

gr:string;

begin

im:=edit1.Text;

gr:=edit2.Text;

Label4.Caption:= 'Привет '+im+' из группы '+gr+'!'

end;

Последовательность выполнения задания.

1. Создайте в Вашей папке новую папку "Privet" для нового проекта. Запустите СП Delphi и сохраните файлы проекта со стандартными именами.

2. Запустите программу на выполнение с помощью команды Run / Run главного меню или щелкните по кнопке Run панели инструментов (ПИ) или нажмите функциональную клавишу F9. На экране появится окно приложения. Вид этого окна в данном случае практически совпадает с окном формы, т. к. оно пока пустое. Единственное отличие – вид ярлыка в левом верхнем углу окна. В окне приложения ярлык имеет вид горящего факела, а в ярлыке окна формы факел погашен.

3. Поупражняйтесь с окном приложения (формы) и убедитесь в том, что оно обладает всеми свойствами стандартного окна операционной системы Windows. Закройте окно приложения.

4. Ознакомьтесь со свойствами формы Left, Top, Width, Height (координаты левого верхнего угла, ширина и высота). Для этого перемещайте окно формы с помощью мыши по экрану и следите за изменением значений свойств Left и Top в окне Object Inspector, изменяйте размеры формы и следите за значениями свойств Width и Height в окне Object Inspector. Затем изменяйте значения свойств Left, Top, Width, Height в окне Object Inspector и следите за положением формы на экране и ее размерами.

5. Измените цвет фона формы. Для этого в окне свойств формы Object Inspector в строке Color выберите значение цвета фона.

6. Выполните программу еще раз. Появится пустая форма другого цвета. Закройте ее.

7. Откройте окно модуля Unit1.pas и просмотрите его текст. Текст модуля имеет вид шаблона.

8. Вставьте в окно формы текстовое поле (объект типа Label) с текстом "Приветствие студента". Для этого активизируйте окно формы и выполните следующие действия:

· перейдите на вкладку Standard палитры компонентов и дважды щелкните мышью на кнопке Label;

· появившийся объект с текстом " Label1 "перетяните мышью к верхней границы окна формы;

· в окне Object Inspector измените значение свойства Caption c Label1 на текст "Приветствие студента";

· установите следующие значения свойства Font (шрифт) текстового поля Label1: Times New Roman, полужирный, размер 16, цвет пурпурный.

9. Аналогично вставьте в форму еще три текстовых поля Label2, Label3 и Label4. Замените значения, установленные по умолчанию, свойства Caption первых двух полей следующими: "Введи имя", "Введи группу", соответственно. Расположите их на форме по своему усмотрению. Значения свойства Font (шрифт) этих полей установите также по своему усмотрению. В качестве значения свойства Caption объекта Label4 установите пустую строку, т. е. сотрите установленное по умолчанию значение Label4.

10. Запустите программу на выполнение. Что Вы видите на экране? Обратите внимание: на форме ничего нельзя изменить. Изменить можно только положение ее на экране и размеры. Закройте форму.

11. Сделайте активным окно модуля Unit1.pas. Какие строки автоматически добавились в текст модуля?

12. Вставьте в форму два поля редактирования – объекты Edit1 и Edit2. Для этого перейдите на вкладку Standard палитры компонентов и щелкните мышью на кнопке Edit, а затем щелкните в нужном месте формы. Вставьте второй объект Edit2 в форму. Для каждого из этих объектов в качестве значения свойства Text задайте пустую строку, т. е. сотрите значения по умолчанию. Запустите программу и поупражняйтесь со вставленными объектами: щелкните в поле редактирования, введите текст, удалите его. Закройте окно программы.

13. Сделайте активным окно модуля Unit1.pas. Какие еще строки автоматически добавились в текст модуля?

14. Создайте на форме кнопку для вывода приветствия – объект Button1. Для этого перейдите на вкладку Standard палитры компонентов и щелкните мышью на кнопке Button, а затем щелкните в нужном месте формы. Поменяйте надпись на кнопке Button1 на "Нажми" (свойство Caption). Запустите программу и щелкните на кнопке. Почему нет никакой реакции? Чтобы выполнились какие-то действия, надо написать процедуру обработки события OnClick (щелчок по кнопке). Закройте окно программы.

15. Для создания процедуры обработки события OnClick надо выполнить двойной щелчок мышью по кнопке "Нажми" или справа от события OnClick на вкладке Events инспектора объектов. Итак, выполните двойной щелчок одним из указанных способов. На экране появится окно редактора модуля с видимым шаблоном процедуры TForm1.Button1Click:

procedure TForm1.Button1Click(Sender: TObject):

begin

end;

После первой строки этого шаблона вставьте три следующие строки:

var

im:string;

gr:string;

Этими строками в процедуре создается раздел (начинается словом var) описания переменных. В данном случае описываются две переменные im и gr строкового типа (string) для сохранения в памяти ПК вводимых пользователем с клавиатуры во время выполнения программы имени и группы.

После слова begin вставьте следующие три строки:

im:=edit1.Text;

gr:=edit2.Text;

Label4.Caption:= 'Привет '+im+' из группы '+gr+'!';

В этих строках записаны операторы присваивания. После выполнения первого оператора im:=edit1.Text; переменная im примет значение текста, введенного в поле объекта Edit1. После выполнения второго оператора gr:=edit2.Text; переменная gr примет значение текста, введенного в поле объекта Edit2. После выполнения третьего оператора Label4.Caption:= 'Привет '+im+' из группы '+gr+'!'; изменится значение свойства Caption объекта Label4. При выполнении программы на форму будет выведен текст, составленный из слов Привет, введенных ранее имени и фамилии (значения переменной im), слов из группы, и введенного ранее названия группы (gr). Обратите внимание: после каждого оператора записывается символ ";"

Итак, получим текст процедуры в виде:

procedure TForm1.Button1Click(Sender: TObject):

var

im:string;

gr:string;

begin

im:=edit1.Text;

gr:=edit2.Text;

Label4.Caption:= 'Привет '+im+' из группы '+gr+'!'

end;

16. Сохраните созданную на данный момент форму и программу в папке "Privet" с помощью команды File / Save All. В дальнейшем периодически, в частности, перед очередными запусками проекта на выполнение, сохраняйте файлы проекта (File / Save All, вводить новые имена файлов не нужно).

17. Запустите проект на выполнение. Введите имя и фамилию в первое поле, название группы во второе поле и нажмите кнопку. Что вы видите на экране?

18. Закройте СП Delphi.

Пример2. Ввести два вещественных числа x и y и вычислить их сумму z. Интерфейс приложения представлен на рисунке:

Таблица используемых компонентов и их свойств, которые устанавливаются на вкладкеProperties инспектора объектов (Object Inspector).

Элемент интерфейса	Визуальный компонент	Свойство компонента	Значение свойства
Заголовок окна	Form1	Caption	Линейные алгоритмы
Введите x	Label1	Caption	Введите x
Поле ввода x	Edit1	Text
Введите y	Label2	Caption	Введите y
Поле ввода y	Edit2	Text
Нажмите	Label3	Caption	Нажмите
Кнопка ОК	Button1	Caption	ОК
<Вывод x, y>	Label4	Caption
И получили z=	Label5	Caption	И получили z=
Поле вывода z	Edit3	Text
Поле вывода z	Edit3	ReadOnly	True

Для всех компонентов можно изменить шрифт с помощью свойства Font.

Процедура обработки события OnClick для кнопки ОК (записывается в модуле после двойного щелчка мышью по кнопке ОК или на вкладке Events события OnClick):

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,z:real;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

Label4.Caption:='Вы ввели х='+FloatToStr(x)+' y='+FloatToStr(y);

z:=x+y;

Edit3.Text:=FloatToStr(z);

end;

При выполнении задания придерживаться той же последовательности, что и при в задании1.

Дата добавления: 2015-10-02