| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

pirks ©   (2007-11-11 21:01:00) 

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

---

Amoeba   (2007-11-11 23:33:00) [1]

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

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

---

KilkennyCat   (2007-11-11 23:07:00) [2]

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


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

---

Amoeba   (2007-11-11 21:49:00) [3]

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

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

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

---

pirks   (2007-11-11 21:23:00) [4]

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

---

Kolan   (2007-11-11 21:20:00) [5]

Если я правильно понял код 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;

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

---

Наверх