1

На форме расположено множество RadioButton переключателей. Задача состоит в том, чтобы по кнопке сбросить им всем состояние в Checked = False. Как решить задачу, не обращаясь к объекту каждого переключателя?

3
  • +1. И все же это может быть не совсем верно - смысл радиобаттонов как раз в том, чтобы всегда была выбрана какая-либо опция.
    – Kromster
    Commented 14 июл. 2016 в 15:01
  • @Kromster, на самом деле, проблема немножко другая. Если я располагаю RadioButtons на разных GroupBox\Panel то при они получаются независимыми друг от друга. А мне нужно, чтобы включенным был только выбранный переключатель. Приходится выдумывать велосипеды в виде отжимания остальных)))
    – Robert
    Commented 14 июл. 2016 в 15:07
  • Тогда ок. Но комментарий я оставлю, чтобы предостеречь будущих читателей )
    – Kromster
    Commented 14 июл. 2016 в 15:08

1 ответ 1

2

Решил следующим образом (может кому пригодится)

var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if (Components[i] is TRadioButton) then
    begin
      (Components[i] as TRadioButton).Checked := False;
    end;
  end;
end;
3
  • 1
    А зачем вам TWinControl и его CanFocus? Commented 14 июл. 2016 в 14:42
  • @kot-da-vinci и действительно, спасибо)
    – Robert
    Commented 14 июл. 2016 в 14:52
  • 1
    Кстати, если RadioButton очень много, то можно сделать оптимальнее НМВ: назначить каждому обработчик OnClick() и в нём делать: FSelectedRB.Checked := False; FSelectedRB := Sender, где FSelectedRB - это приватное поле формы, типа TRadioButton (не компонент на форме!). Ну и не забыть при создании формы назначить ему TRadioButton по-умолчанию, чтобы не получить AV. Это, к тому же, позволит иметь на этой форме несколько разных групп TRadioButton.
    – Alekcvp
    Commented 14 июл. 2016 в 17:18

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.