Delphi. RadioButton. Как оно работает? :)

[R11]

я имел ввиду тот же самый пример, только GroupBox с двумя радио кнопками и в добавок CheckBox. Если CheckBox активен то к ответу + 15.

[Jeni]

Сообщение от R11

я имею ввиду если будет груп бокс с теме 2-мя радио кнопками

Если нужно проверить какой RadioButton выбран, то код такой:
if RadioButton1.Checked then...
Единственное, желательно еще на этапе разработки установить у одного из RadioButton свойство Checked равным True, дальнейшее переключение между ними будет происходить автоматически.

[mihali4]

У всех компонентов есть специальное пользовательское свойство TAG типа INTEGER.
Загоняем в это свойство нужные вам значения и оперируем ими напрямую, например:
Result:=RadioButton1.Tag+RadioButto n2.Tag+15;

[R11]

Сообщение от Jeni

Если нужно проверить какой RadioButton выбран, то код такой:
if RadioButton1.Checked then...
Единственное, желательно еще на этапе разработки установить у одного из RadioButton свойство Checked равным True, дальнейшее переключение между ними будет происходить автоматически.

Как выбрать у определенного RadioButton Checked равным True, используя RadioGrup?

[Stilet]

Вообще то в RadioGroup есть свойство ItemIndex, оно покажет номер радиокнопки которая включена в этой группе.

[R11]

Сообщение от Stilet

Вообще то в RadioGroup есть свойство ItemIndex, оно покажет номер радиокнопки которая включена в этой группе.

О, точно, есть такое свойство спасибо!

[R11]

а как обратиться (отключить), определенный элемент в radioButton

[R11]

Сообщение от R11

а как обратиться (отключить), определенный элемент в radioButton

уточню немного вопрос, не получается отключить кнопку из радиогрупп2, когда выбираем радиоБатон1 в радиоГрупп1.
вот листинг, как я хотел это осуществить, но не работает
begin
// выбор шага цепи t
case RadioGroup1.ItemIndex of
0: t := 15;
1: t := 21;
2: t := 44;
end;

if t =15 then
begin
h1 :=7;
TRadioButton(RadioGroup2.Controls[2]).Enabled := False;
end

else
if t=21 then
begin
h1 :=8;
h3 :=95;
end

else
if t=44 then
begin
h1 :=12;
h3 :=18;
end;

[Ярослав]

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 case RadioGroup1.ItemIndex of
0:t:= 15;
1:t:= 21;
2:t:= 44;
end;

if t =15 then
begin
h1:=7;
RadioGroup1.Buttons[1].Enabled:=false;
end

else
if t=21 then
begin
h1 :=8;
h3 :=95;
end

else
if t=44 then
begin
h1 :=12;
h3 :=18;
end;
end;

end.

[R11]

Сообщение от Ярослав

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 case RadioGroup1.ItemIndex of
0:t:= 15;
1:t:= 21;
2:t:= 44;
end;

if t =15 then
begin
h1:=7;
RadioGroup1.Buttons[1].Enabled:=false;
end

else
if t=21 then
begin
h1 :=8;
h3 :=95;
end

else
if t=44 then
begin
h1 :=12;
h3 :=18;
end;
end;

end.

что-то не работает