Конструирование формы

Для формы Form1 в инспекторе объектов Object Inspector можно задать следующие свойства:

• Caption – Заголовок окна (например, «Вычисление»);


• Height – 400 (Высота окна);


• Width – 600 (Ширина окна).

Поместить на форму компоненты (рис. 2.3):

• панель Panel1 (в нижней части экрана для вывода информации);


• панель Panel2 (в верхней части для входной информации) (страница Standard).

Для панелей выполнить:

Caption – очистить поле заголовка для вывода результата.

Font.Size – 10 (задать размер шрифта).

На панели Panel2 разместить компоненты Edit1и Edit2 – для ввода данных (страница Standard).

Text – очистить поле для ввода информации (переменных x и y).

Label1 и Label2 – использовать для задания меток для х и у (страница Standard).

Caption

x= (для Label1)

y=(для Label2)

Кнопка Button1 (страница Standard)

Caption – Вычислить

Кнопка BitBtn1 (страница Additional)

Kind – Close

На панели Panel1 разместить метку Label3.

Caption задать «Результат»

Командную кнопку BitBtn1 будем использовать для закрытия окна.

Управлять вычислением будет кнопка Button1, для неё необходимо создать обработчик события OnClick (нажатие кнопки).

Для создания обработчика надо перейти на вкладку Events Инспектора объектов Object Inspector, выбрать мышью нужный компонент Button1 и найти требуемое событие OnClick.

Курсор устанавливается в процедуру-обработчика события, которая должна иметь следующий вид:

procedure Tform1.Button1Click(Sender:Tobject);
begin
<место курсора>
End;

Ниже представлена программа обработки заданного события.
procedure Tform1.Button1Click(Sender:Tobject);

Var
x,y,s,z:integer; // описание переменных
begin
x:=StrToInt(Edit1.Text);// ввод переменных и преобразование их из строкового в целый тип
y:=StrToInt(Edit2.Text);
If x>y then begin S:=2*(x+y); Panel1.Caption:=’S=’+IntToStr(S) end
else
begin z:=sin(x+y); Panel1.Caption:=’z=’+IntToStr(z)
end;
end;

Вывод результата выполнен в заголовок панели Panel1.

Процедура закрытия окна будет иметь вид:

procedure Tform1.Bitbtn1Click(Sender:Tobject);
begin
Form1.Close ;
End.

Созданный проект компилируется и выполняется при отсутствии ошибок. Его необходимо сохранить командой File | Save. При сохранении Delphi предложит сохранить модуль с формой под именем Unit.pas, а проект – как Project.dpr.

Информация вводится в текстовые редакторы в строковом виде, а в программе эти данные используются как числовые, поэтому должно быть выполнено преобразование из строкового вида в числовое. В программе это преобразование осуществляется с помощью StrToInt (из строкового в целый String – Integer). При выводе результата на экран необходимо выполнить обратное преобразование.