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

Информатика. Программирование в Delphi
125
#13:
//если выбран переключатель RadioButton1, то установка его в фокус
if RadioButton1.Checked then
RadioButton1.SetFocus
//если выбран переключатель RadioButton2, то установка его в фокус
else
RadioButton2.SetFocus
//остальные клавиши запрещены
else
key:=#0;
end;
end;
8. Создадим процедуру RadioButton1Click компонента RadioButton1 для
обработки события OnClick. Оформим ее следующим образом.
//выбор переключателя Простые проценты
procedure Tform1.RadioButton1Click(Sender: Tobject);
begin
//изменение заголовка
Label2.Caption:='Срок (дней)';
Label4.Caption:='';
//передача управления компоненту Button1
Button1.SetFocus;
end;
9. Создадим процедуру RadioButton2Click компонента RadioButton2 для
обработки события OnClick. Оформим ее следующим образом.
//выбор переключателя Сложные проценты
procedure Tform1.RadioButton2Click(Sender: Tobject);
begin
//изменение заголовка
Label2.Caption:='Срок (мес.)';
Label4.Caption:='';
//передача управления компоненту Button1
Button1.SetFocus;
end;
10. Создадим процедуру Button1Click компонента Button1 для обработки
события OnClick. Оформим ее следующим образом.
//происходит при нажатии на кнопку Button1
procedure Tform1.Button1Click(Sender: Tobject);