Перейти к содержанию
Fire Monkey от А до Я
  • 0

TGroupbox и TRadioButton вместо TRadioGroup


Steepe_Hare

Вопрос

Скажите, может я чего-то не понимаю, но зачем теперь вместо одного TRadioGroup нужно использовать TGroupbox и кучу TRadioButton?

И писать в несколько раз больше код:
 

      if RadioButton1.IsChecked then
        Level := 0
      else if RadioButton2.IsChecked then
        Level := 1
      else if RadioButton3.IsChecked then
        Level := 2
      else
        Level := 3;

      Level := RadioGroup1.ItemIndex;

 

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

Как вариант могу предложить следующий алгоритм 

В RadioButton(I).Tag выставляете уникальный индекс. В обработчике onChange у RadioButton:

GroupBox.Tag := (Sender as TRadioButton). Tag;

Тогда для проверки можно использовать :

Case GroupBox.Tag of....

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...