Свойство Checked в RadioButton из GroupBox

[A-IX-2]

У ТС в посте про GroupBox речь идёт. То, что OnEnter не совсем корректно, согласен, но если тыкать мышкой в поле GroupBox не попадая на RadioButton, кнопка не появляется.

[Nesta23]

Именно так, а вообще radiobutton в сумме 27*5=135, так как 27 вопросов. Все таки на ставить условие на каждую это тоже извращение.
Нашел вот такую штуку. Но на чекбокс.
For i := 0 to Form1.ComponentCount-1 do
If (Form1.Components[i] is TCheckBox)
and((Form1.Components[i] as TCheckBox).Parent.Name = 'GroupBox1')
and((Form1.Components[i] as TCheckBox).Checked)
then ShowMessage((Form1.Components[i] as TCheckBox).Name);
Ща времени нет, попробую попозже реализовать, мб че получится.

[A-IX-2]

Оу, а вы делаете 135 RadioBatton. Может лучше при нажатии на кнопку свойство Caption у RadioButton менять, тогда их всего 5 будет.
Кстати, вот тут про создание тестов на Delphi можно почитать http://devdelphi.ru/?s=%D0%A1%D0%BE%...D%D0%B0+Delphi

[Nesta23]

Сообщение от A-IX-2

Оу, а вы делаете 135 RadioBatton. Может лучше при нажатии на кнопку свойство Caption у RadioButton менять, тогда их всего 5 будет.
Кстати, вот тут про создание тестов на Delphi можно почитать http://devdelphi.ru/?s=%D0%A1%D0%BE%...D%D0%B0+Delphi

Не получится, у меня просто 27 Groupbox, и на каждом по 5 батанов. Боксы завязаны на Timerы. Просто я сделал, чтобы они выезжали с правой стороны. И так более удобно, считать результаты.

[evg_m]

но если тыкать мышкой в поле GroupBox не попадая на RadioButton, кнопка не появляется.

верно. Но если после промаха НЕ ВЫХОДЯ из Groupbox мы постараемся исправить ситуацию и все-таки со следующей попытки попадем, то ... придется долго ждать появления кнопки, т.к. OnEnter УЖЕ отработал.

Все это в общий обработчик Radiobutton

grbbox:=(sender as TradioButtin).parent; //узнали на какой таблице(Groupbox) мы сделали отметку 
// sender это объект для которого произошло событие наш RadioButton
ok:=false; //считаем что отметок нет
for j:=0 to grbox.controlcount-1 do begin
  if grbox.controls[j] is TradioButton //просматриваем список объектов лежащих на нужном Groupbox 
  and (grbox.controls[j] as Tradiobuttin).checked ok:=true; //нашли отметку
  if grbox.controls[j] is TButton then 
  btn:=grbox.controls[j] as Tbutton; //узнаем нужную кнопку (ту которая м.б. скрыта)
end;
  btn.visible:=ok; //показываем/прячем при наличии/отсутствии отметок

+объявить переменные

grbox: TGroupbox;
ok: boolean;
btn: TButton;