Пример. Для того, чтобы задать названия переключателей необходимо в инспектор объектов активизировать свойство Items.ри этом открывается окно:

Для того, чтобы задать названия переключателей необходимо в инспектор объектов активизировать свойство Items.ри этом открывается окно:

В секции Private необходимо описать переменную

Color: Tcolor;

В обработчике FormCreate необходимо задать первоначальное значение цвета:

Procedure TForm1.FormCreate(Sender: TObject);

begin

Color: = clBlue;

end;

В обработчике RadioGroup1Click:

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex=0 then Color: = clBlue;

if RadioGroup1.ItemIndex=1 then Color: = clGreen;

if RadioGroup1.ItemIndex=2 then Color: = clRed;

end;

В обработчике Button1Click:

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Font.Color: = Color;

Edit1.Text: = 'Группа 207218';

end;

Замечание.

Если нужно программным способом переключить любой переключатель, то можно воспользоваться записью вида:

RadioGroup1.ItemIndex: = 2;