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

Информатика. Программирование в Delphi
135
Рис. 9.5
6. Создадим процедуру RadioGroup1Click для обработки события
OnClick компонента RadioGroup1. Оформим ее следующим образом.
//процедура выполняется при выборе кнопки в компоненте //RadioGroup1
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
//выбрана кнопка Сила тока (номер кнопки 0)
0:begin
//изменение заголовка компонента Label1
Label1.Caption:='Напряжение (В)';
//изменение заголовка компонента Label2
Label2.Caption:='Сопротивление (Ом)';
//удаление всех кнопок (элементов массива Items)
//компонента RadioGroup2
RadioGroup2.Items.Clear;
//добавление кнопки в компонент RadioGroup2
RadioGroup2.Items.Add('A');
//добавление кнопки в компонент RadioGroup2
RadioGroup2.Items.Add('мA');
end;
// выбрана кнопка Напряжение (номер кнопки 1)
1:begin
//изменение заголовка компонента Label1
Label1.Caption:='Сила тока (А)';
//изменение заголовка компонента Label2
Label2.Caption:='Сопротивление (Ом)';
//удаление всех кнопок (элементов массива Items)
//компонента RadioGroup2
RadioGroup2.Items.Clear;
//добавление кнопки в компонент RadioGroup2
RadioGroup2.Items.Add('В');