1

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

3
  • +1. И все же это может быть не совсем верно - смысл радиобаттонов как раз в том, чтобы всегда была выбрана какая-либо опция.
    – Kromster
    14 июл 2016 в 15:01
  • @Kromster, на самом деле, проблема немножко другая. Если я располагаю RadioButtons на разных GroupBox\Panel то при они получаются независимыми друг от друга. А мне нужно, чтобы включенным был только выбранный переключатель. Приходится выдумывать велосипеды в виде отжимания остальных)))
    – Robert
    14 июл 2016 в 15:07
  • Тогда ок. Но комментарий я оставлю, чтобы предостеречь будущих читателей )
    – Kromster
    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? 14 июл 2016 в 14:42
  • @kot-da-vinci и действительно, спасибо)
    – Robert
    14 июл 2016 в 14:52
  • 1
    Кстати, если RadioButton очень много, то можно сделать оптимальнее НМВ: назначить каждому обработчик OnClick() и в нём делать: FSelectedRB.Checked := False; FSelectedRB := Sender, где FSelectedRB - это приватное поле формы, типа TRadioButton (не компонент на форме!). Ну и не забыть при создании формы назначить ему TRadioButton по-умолчанию, чтобы не получить AV. Это, к тому же, позволит иметь на этой форме несколько разных групп TRadioButton.
    – Alekcvp
    14 июл 2016 в 17:18

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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