7. Установим свойства для компонентов Button1, Button2:

	Button1	Button2	Button3
Caption	Вычислить	Новое	Завершить
Height	35	35	35
Width	120	120	120
Left	80	240	400
Top	350	350	350
Шрифт	Arial	Arial	Arial
Начертание	Обычный	Обычный	Обычный
Размер	13	13	13

8. Все используемые в примере компоненты – форма, метки, строки ввода и кнопки – обладают именами, задаваемыми в имеющемся у них свойстве Name (Имя): Form1, Label1, Label2, Label3, Label4, Edit1, Edit2, Button1, Button2 и Button3. Имена компонентов генерируются автоматически интегрированной средой Delphi при создании компонента, то есть, например, при размещении компонента на форме. Для образования имени компонента используется имя класса с отброшенной первой буквой Т. В конце имени добавляется цифра, указывающая, под каким порядковым номером в своем классе появился на свет компонент. Например, компонент Edit1 является экземпляром класса TEdit, а компонент Label1 является экземпляром класса TLabel.

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

На этом этап конструирования формы можно считать завершенным.

9. Переходим к этапу написания кода программы.

Наша будущая программа должна вычислять значение функции после того, как в строках ввода введены значения х и у и выполнен щелчок мышью по кнопке Вычислить. Это означает, что мы должны написать обработчик события OnClick для кнопки Buttonl. Событие OnClick для кнопки является событием по умолчанию, поэтому, чтобы создать заготовку обработчика события, достаточно выполнить двойной щелчок по кнопке Buttonl. В результате окно редактора кода станет активным и будет содержать заготовку обработчика события (см. р ис. 4).

Рис. 4. Окно редактора кода, содержащее заготовку обработчика события

Добавим в заготовку код для вычисления значения функции

procedure TForm1.Button1Click(Sender: TObject);

var x,y,t,t1:real;

s1:string[7];

code:integer;

begin

{Ввод исходных данных}

val(edit1.text,x,code);

val(edit2.text,y,code);

{Вычисление выражения}

t1:=1/(sqr(x)+4);

t:=(x+y*t1)/(y*(x-1)+t1));

{Вывод результата}

str(t:7:3,s1);

label4.caption:='Решение'+chr(13)+'t='+s1;

end;

Обратите внимание, как используются свойства компонентов в тексте программы. Для того чтобы присвоить свойству либо извлечь из свойства какое–либо значение, следует указать имя компонента, поставить точку и затем указать свойство.

В обработчик событий onClick кнопки Button2 поместим такой код:

procedure TForm1.Button2Click(Sender: TObject);

begin

Label4.caption:=' ';

edit1.Text:=' ';

edit2.Text:=' ';

end;

В обработчик событий onClick кнопки Button3 поместим такой код:

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

На этом этап программирования можно считать завершенным.

10. Перед запуском программы ее всегда необходимо сохранить. В случае зависания неотлаженной программы это поможет сберечь ваше время. Для сохранения проекта необходимо выполнить команду главного меню File  Save All. В результате на экране дисплея появится диалоговое окно сохранения модуля.

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

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

Заметим, что имена файла проекта и модуля должны быть различными.

В главном меню Delphi имеются также другие команды, предназначенные для сохранения:

Save – сохранить текущий модуль;

Save As – сохранить текущий модуль под новым именем;

Save Project As – сохранить текущий проект под новым именем.

Сохранив проект, запустим его на выполнение. Если будут возникать ошибки, например, синтаксические, то исправим их точно так же, как это мы делали для консольного приложения. В случае отсутствия ошибок на экране дисплея появится окно нашей программы.

Введем значения х и у в строки ввода и нажмем кнопку Вычислить – в предусмотренной нами части окна появится соответствующее значение функции.