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