Пример

Для того, чтобы задать названия переключателей необходимо в инспектор объектов активизировать свойство 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;

Дата добавления: 2014-01-07