Задайте одинаковые размеры для всех текстовых полей, полей редактирования и кнопок и выровняйте их на форме.

Для этого одновременно выделите пять объектов левого столбца одним из способов:

· держа нажатой клавишу Shift, поочередно активизируйте объекты, щелкая на них левой клавишей мыши;

· обведите вокруг этих объектов контур, удерживая нажатой левую клавишу мыши.

В окне Object Inspector задайте общие для этих объектов значения свойств Width (ширина), Height (высота) и Left (отступ от левой границы окна) в пикселях. Обратите внимание, что после активизации соответствующего свойства его значение – это значение свойства первого выделенного объекта созданной группы. Можете изменить стиль, цвет или размер шрифта одновременно для всех выделенных объектов (свойство Font). Снимите выделение, нажав на свободном месте формы. Аналогично выполните выравнивание правого столбца объектов. Выровняйте вставленные поля попарно в горизонтальном направлении. Для этого измените свойство Тор (отступ от верхней границы окна в пикселях) для соответствующих групп объектов. Сохраните работу (Save All).

 

Адайте значение курсов купли и продажи валюты, а также количество валюты, которую покупают или продают.

Для этого введите нужное число, например 5, как значение свойства Text объекта Editl. Повторите это для объекта Edit2 (значение 5.2) и Edit3 (значение 20).

 

Очистите поле редактирования Edit4.

Для этого удалите значение свойства Text для объекта Edit4. Не спутайте значения свойств Name и Text этих объектов.

 

Заблокируйте возможность введения данных для поля Edit4, задав его свойство Enabled (доступность) как False (либо ReadOnly), поскольку это поле будет содержать результат.

Изменять значение определенного свойства можно двойным нажатием на нем левой кнопкой мыши. Сохраните работу (Save All). Выполните программу и убедитесь, что нельзя ввести или редактировать данные в поле объекта Edit4.

 

17. Запрограммируйте радиокнопки так, чтобы направление стрелки показывало на вид операции: купля или продажа. Сделайте активным поле Edit3.

Нажмите дважды на правом переключателе RadioButton2 (Продажа). Получите заготовку процедуры RadioButton2Click. В теле этой процедуры опишите действия, которые должны состояться в результате нажатия на правом переключателе RadioButton2:

 

procedure Tform1.RadioButton2Click(Sender: TObject);

Begin

Label3.Caption:= '=>'; {Изменяем направление стрелки}

Edit3.SetFocus; { Активизируем поле Edit3}

End;

 

Аналогично запрограммируйте событие Click нажатием на левом переключателе RadioButton1, учтя, что стрелка должны показывать на левое поле ('<=').

Запустите программу и убедитесь, что переключатель выполняет свои функции согласно пункту 17.

 

19. Запрограммируйте кнопку "Конец";.

Воспользуйтесь процедурой закрытия окна программы Close:

 

procedure TForml.Button2Click(Sender: TObject);

Begin

Close { Закрываем окно программы}

End;

 

20. Запрограммируйте кнопку "Вычислить";.

Данные в поле редактирования - это значение свойства Text объекта типа string. Для преобразования этого данного в числовой действительный тип (real) воспользуйтесь процедурой Val, а наоборот - процедурой Str. Опишите основные (kurs, suma) и дополнительные (cod, ed) переменные в разделе var.

 

procedure Tform1.Button1Click(Sender: TObject);

var kursl, kurs2, suma: real; cod: integer; ed: string[9];

Begin

Val (Edit1.Text, kurs1, cod); {Получаем значение курса купли}

Val (Edit2.Text, kurs2, cod); (Получаем значение курса продажи}

Val (Edit3.Text, suma, cod); {Получаем числовое значение суммы в USD}

if RadioButton2.Checked = True then suma:= suma * kurs2

else suma:= suma * kurs1;

Str(suma:9:2, ed); Edit4.Text:= ed;

{ Полученное число суммы в гривнах превращаем в текстовый формат и результат присваиваем свойства Text поля вывод Edit4}

End;

 

Сохраните работу (SaveAll).

 

22. Выполните программу и поэкспериментируйте с разными денежными сумами и операциями купли или продажи. Закройте окно программы "Обмен валюты";.

Для прерывания работы программы в случае неправильного ввода входных данных выполните пункт главного меню RunÞProgramReset.