ходим по RadioButton по нажатию кнопки

[gvozdkoff]

всем привет, сейчас опишу подробнее ситуацию.
есть форма на ней GroupBox. и button
В GroupBox есть 10 radiobutton ( ! НЕ RAdioGroupe ).
Пытаюсь сделать такое: по нажатию кнопки button, активным элементом стал radiobutton1, а при следующем нажатии активный radiobutton2.
(то есть свойство cheked:=true, по очереди, сначала у radiobutton1, radiobutton2 , и тд по очереди).
Само собой что все сразу cheked:=true они не могут быть.

пробовал с помощью:
groupbox2.Component;
groupbox2.Control;
Не вышло ничего.

с RAdioGroupe конечно в этом плане понятно все, переход по итеминдех.
Но к сожалению не подходит.

Если есть думки по этому вопросу, как сделать, то подскажите пожалуйста.

[vovk]

по быстрому вот такая корявка выходит, подумай доработай если надо, но честно говоря непонимаю почему не подходит TRadioGroup

var
i:integer;
rbtn:TRadioButton;
check_:Boolean;
begin
rbtn:=nil ;
I := 0;
check_:=false;
while (i <(GroupBox1.ControlCount)) do
begin
   if GroupBox1.Controls[i] is TRadioButton  then
     if (not (GroupBox1.Controls[i] as TRadioButton).Checked) then
    begin
    if (not check_)   then
           rbtn:=(GroupBox1.Controls[i] as TRadioButton);
            check_:=true;
    end
   else check_:=False;
    inc(i);
end;
  if rbtn<>nil then
  rbtn.Checked:=true;

[gvozdkoff]

ОГО!!! Спасибо за код. Работает ведь !!!

почему не подходит TRadioGroup.

программа - это тест, в нем каждый вопрос соответствует radiobutton, есть 2 кнопки ответить и пропустить, так вот если нажимаем ответить, то radiobutton.color:=clgreen, а если пропустить, то color: red.

radiobutton.color это как идентификатор для отвеченых и пропущеных вопросов.

У TRadioGroup я такого не нашел.

[Аватар]

Можно в свойство Tag RadioButton-ов поместить порядковые номера, при нажатии Button найти RadioButton с Checked=True, вытащить из Tag его порядковый номер, найти RadioButton со следующим порядковым номером в Tag и ему Checked:=True

[gvozdkoff]

спасибо вам большое, за потраченое суботнее время )))
сделал все работает.

[vovk]

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

ОГО!!! Спасибо за код. Работает ведь !!!

почему не подходит TRadioGroup.

программа - это тест, в нем каждый вопрос соответствует radiobutton, есть 2 кнопки ответить и пропустить, так вот если нажимаем ответить, то radiobutton.color:=clgreen, а если пропустить, то color: red.

radiobutton.color это как идентификатор для отвеченых и пропущеных вопросов.

У TRadioGroup я такого не нашел.

конечно работает, а почему не должно работать?

спасибо вам большое, за потраченое суботнее время )))
сделал все работает.

Да пожалуйста))