2. Порядок выполнения работы

Изучить структуру интегрированной среды Delphi, свойства основного компонента Form и выполнить контрольные примеры.

Контрольный пример 1.

Создать простейшее приложение Windows на основе компонента Form. Изучить основные свойства этого компонента.

Решение

1. Открыть новый проект Delphi: File – New Application .

2. В Object Inspector изменить свойство Caption компонента Form1 с 'Form1' на ' Простейшее приложение '.

3. Запустить проект на компиляцию и выполнение с помощью клавиши F9 .

4. Закрыть приложение, нажав на значок .

5. C помощью Object Inspector для компонента Form1 изменить свойство Color, задавая ему различные значения, например clRed, clBlue и т.д.

6. Изменить свойства Height и Width компонента Form1 , задавая этим свойствам различные значения, например:

Height = 480, 350, 130;

Width = 120, 200, 400.

7. Задавая различные значения свойствам BorderIcons и BorderStyle , запустить проект на компиляцию и выполнение и проанализировать изменения во внешнем виде окна приложения, например:

BorderStyle = bsSizeable, bsSingle, bsDialog, bsToolWindow;

BorderIcons:

biSystemMenu = true, false;

biMinimize = = true, false;

biMaximize = true, false;

8. Аналогично, изменяя свойства FormStyle , Position и WindowState , запустить проект на выполнение и проанализировать изменения во внешнем виде окна приложения, например:

FormStyle = fsNormal, fsStayOnTop

Position = poDefault, poDesigned, poScreenCenter

WindowState = wsNormal, wsMaximized

Контрольный пример 2.

Составить программу для вычисления площади круга произвольного радиуса.

Решение

1. Открыть новый проект Delphi – File – New Application.

2. Поместить на форму четыре компонента: Label1, Label2, Edit1 и Button1 (см. рис. 3).

рис. 3.

При помещении компонентов на форму можно сразу же задавать их размеры. Для этого после выбора компонента в Палитре компонентов следует указать на форме прямоугольную область, которую займет компонент. Левый угол области определяется щелчком левой клавиши мыши, затем, не отпуская клавиши мыши, нужно переместить указатель мыши в правый нижний угол области.

3. В Object Inspector изменить свойство Caption компонента Form1 с 'Form1' на «Вычисление площади круга».

4. Изменить размеры формы. Для этого можно подвести курсор мыши к любому краю формы и, не отпуская левой клавиши мыши, изменить размеры формы. При этом автоматически будут изменяться свойства Height (Высота) и Width (Ширина), находящиеся в Инспекторе объектов. Положить указанные свойства равными соответственно 350 и 400 (пикселей).

Свойства Left и Top задают расстояние от левого верхнего угла монитора до левого верхнего угла формы соответственно. Установить их значения равными 300 и 200 (пикселей) соответственно. В результате форма будет находиться примерно на середине экрана.

5. Установить следующие свойства компонентов Label1 и Label2:

	Label1	Label2
Height	57	Любое число
Width	129	Любое число
Left	131	100
Top	34	218

Как и для формы, эти значения можно установить, перемещая компоненты по форме и изменяя их размеры при помощи мыши, либо прибегнув к помощи Инспектора объектов. Кроме того, можно воспользоваться панелью инструментов Align (рис. 4)

Рис. 4.

Свойство Caption является главным для метки и содержит отображаемый ею текст. Для метки Label1 установить свойство Caption равным «Введите радиус круга и нажмите кнопку Счет». Для метки Label2 свойство Caption будет определяться на этапе выполнения программы.

Свойство AutoSize метки определяет, будет ли размер метки устанавливать автоматически, в зависимости от длины символьной строки, помещенной туда.

Свойство WordWrap(Перенос слов) разрешает, либо запрещает перенос слов, если строка не помещается в метку и свойство AutoSize равно False.

Свойство Aligment (Выравнивание) определяет, как будет выровнен текст внутри метки: по левому краю, по центру или по правому краю.

	Label1	Label2
AutoSize	False	True
WordWrap	True	False
Aligment	taCenter	taLeftJustify

Для того чтобы установить характеристики шрифта, выбрать свойство Font в Инспекторе объектов. Щелкнуть по кнопке с тремя точками, появившейся в правой колонке. На экране появится окно «Выбор шрифта» (рис. 5):

Рис. 5.

При помощи этого окна установить следующие характеристики шрифтов для меток Label1 и Label2:

	Label1	Label2
Шрифт	Times New Roman	Arial
Начертание	Полужирный	Курсив
Размер	10	11

6. Установить в Инспекторе объектов для компонентов Edit1 и Button1 следующие значения свойств Height, Width, Left и Top:

	Edit1	Button1
Height	21	25
Width	193	75
Left	31	285
Top	146	146

Свойство ‘Text’ является основным для компонента Edit1 и предназначено для ввода (или вывода) символьных строк. Задать в качестве значения этого свойства пустую строку – ‘ ‘.

Для компонента Button1 в качестве значения свойства Caption положить символьную строку «Счет».

7. Все использующиеся в программе компоненты обладают именами, задаваемыми в имеющемся у них свойстве Name (Имя). Имена компонентов генерируются автоматически интегрированной средой Delphi при создании компонента, например при размещении компонента на форме. Для образования имени компонента используется имя класса с отброшенной первой буквой Т. В конце имени добавляется цифра, указывающая под каким порядковым номером в своем классе появился на свет компонент.

8. Чтобы создать заготовку обработчика события OnClick, необходимо выполнить двойной щелчок мышью по кнопке Button1. В результате окно редактора кода станет активным и будет содержать заготовку обработчика события (рис. 6):

Рис. 6.

Добавить в заготовку код для вычисления площади круга:

procedure TForm1.Button1Click(Sender: TObject);

var r,s:real;

begin

r:=StrToFloat(Edit1.Text);

s:=pi*sqr(r);

Label2.Caption:='Площадь круга равна' +

FloatToStrF(s,ffGeneral,7,2);

end;

9. Перед запуском программы ее необходимо сохранить. Для этого выполнить команду главного меню: File|Save All.

10. Сохранив проект, запустить его на выполнение. В случае отсутствия ошибок, на экране монитора появится окно программы (рис. 7):

Рис. 7.