Стр. 86 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
86
Изменим цвет компонентов Edit1 и Edit2 на clMoneyGreen, а цвет
шрифта – на clGreen. Шрифт меняется так же, как и в компоненте Label в
свойстве Font (рис. 5.7).
4. Добавим на форму кнопку – компонент Button1 и изменим ее свойство
Caption на Пересчет (рис. 5.8).
Рис. 5.8
5. Добавим компонент Label на форму и изменим его заголовок (свойство
Caption) на пустую строку, размер шрифта – на 14, цвет – на зеленый
(clGreen ), имя шрифта – на Arial и начертание на жирный (fsBold) (рис. 5.9).
Рис. 5.9
6. Создадим в инспекторе объектов для кнопки Button1 (Пересчет) про-
цедуру Button1Click для обработки события OnClick. Оформим процедуру
Button1Click следующим образом.
//процедура выполняется при нажатии на кнопку Пересчет
procedure TForm1.Button1Click(Sender: TObject);
var
//количество рублей
r:integer;
//количество долларов
d:real;
//курс доллара
k:real;
begin
//проверкаполей редактирования Edit1 и Edit2 на заполненность
if (Edit1.Text<>'') and (Edit2.Text<>'') then
begin
//запись в переменную r количества рублей, введенного
//в поле редактирования Edit1, с переводом из типа String