Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Пример. Для того, чтобы задать названия переключателей необходимо в инспектор объектов активизировать свойство 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;