объединение RadioButton в группу...

← →
pirks (2007-11-11 21:01) [0]

Есть 3 элемента TRadioButton
находятся на разных панелях (TPanel)
как сделать так чтоб их обработка была групповой. Т.е как будто они находятся на одном родительском элементе ?
Заранее спасибо.

← →
Kolan © (2007-11-11 21:20) [1]

Если я правильно понял код VCL:

procedure TurnSiblingsOff; var I: Integer; Sibling: TControl; begin if Parent <> nil then with Parent do for I := 0 to ControlCount  1 do begin Sibling := Controls[I]; if (Sibling <> Self) and (Sibling is TRadioButton) then with TRadioButton(Sibling) do begin if Assigned(Action) and (Action is TCustomAction) and TCustomAction(Action).AutoCheck then TCustomAction(Action).Checked := False; SetChecked(False); end; end; end;

То выход один  кинуть их на форму, а затем подвинуть така как будто они на панелях.

← →
pirks (2007-11-11 21:23) [2]

у меня элементы создаются динамически
по этому этот метод не совсем подходит

← →
Amoeba © (2007-11-11 21:49) [3]

> pirks (11.11.07 21:01)
>
> Есть 3 элемента TRadioButton
> находятся на разных панелях (TPanel)
> как сделать так чтоб их обработка была групповой.

Очень странная идея. Бедный user!

P.S. Я бы такую программу немедля отправил в корзину помянув недобрым словом ее автора.

> Amoeba © (11.11.07 21:49) [3]

Ну, почему же... если мы имеем три группы чего-то, что немного пересекается свойствами, то сие допустимо. Например, три панельки с реквизитами трех разных фирм. И свойство "получает деньги", с условием, что только одна из фирм может получать деньги.

> KilkennyCat © (11.11.07 23:07) [4]
>
>
> > Amoeba © (11.11.07 21:49) [3]
>
>
> Ну, почему же... если мы имеем три группы чего-то, что немного
> пересекается свойствами, то сие допустимо. Например, три
> панельки с реквизитами трех разных фирм. И свойство "получает
> деньги", с условием, что только одна из фирм может получать
> деньги.
>

Но, судя по вопросу вопрошающего, на такую ситуацию не похоже.

объединение RadioButton в группу... Найти похожие ветки