Змінювати значення певної властивості можна подвійним клацанням на ній лівою клавішею миші. Збережіть роботу (Save All). Виконайте програму і переконайтеся, що не можна ввести чи редагувати дані у полі об'єкта Edit4.
Задайте значення курсів купівлі та продажу валюти, а також кількість валюти, яку кантор купує чи продає.
Для цього активуйте об’єкт ComboBox1 і у вікні Object Inspector перейдіть на закладку Events. У полі OnSelect двічі клацніть лівою клавішею миші. Активується вікно тексту програми з заготовкою процедури ComboBox1Select, у якій задаватимуться значення полів (курси валют).
procedure TForm1.ComboBox1Select(Sender: TObject);
Begin
end;
У неї необхідно ввести такий текст програми:
procedure TForm1.ComboBox1Select(Sender: TObject);
Begin
if ComboBox1.Items.Strings[ComboBox1.ItemIndex] ='USD' then
Begin
Edit1.Text:='7.90';
Edit2.Text:='8.05';
end;
if ComboBox1.Items.Strings[ComboBox1.ItemIndex] ='євро' then
Begin
Edit1.Text:='10.5' ;
Edit2.Text:='10.9';
end;
end;
Зауваження. Зверніть увагу на використання коми чи крапки у вхідних даних. У числах, які стосуються курсу валюти, гривневої чи доларової сум для десяткової крапки використайте символ, передбачений операційною системою вашого комп'ютера (див. Start (Пуск) => Settings (Налаштовування) => Control Panel (Панель керування) => Regional Settings => закладка Number (Числа), рядок Decimal symbol (Символ десяткової крапки) ).
