Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> RadioButton 
V
    Опции темы
Metalex
Дата 24.3.2009, 17:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет
Как сделать, чтоб при выборе определенного RadioButton, какой-то переменной присваивалась соответствующая цифра? Потом мне нужно в зависимости от выбора человека пойти по определенной ветви решения. Выберет первое - будет решение одного условия, другое - другого.. В общем все.. То есть у меня: 
1) человек выбирает RadioButton;
2) вводит 4 Edit;
3) нажимает кнопку типа Button;
4) в зависимости от выбора RadioButton, программа идет по соотвествующему if и результаты выводятся в label.
Меня смущает это:
в зависимости от выбора RadioButton

Подскажите?


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
former
Дата 24.3.2009, 17:37 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17
Лучше используй RadioGroup. Тогда можно будет отлавливать ItemIndex, а уж по нему совершать действие по case ItemIndex of.

Добавлено @ 17:42
Вот так, приблизительно:
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: Label1.Caption:= 'Sample1';
    1: Label1.Caption:= 'Sample2';
  end;
end;


Это сообщение отредактировал(а) former - 24.3.2009, 17:46


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Metalex
Дата 24.3.2009, 22:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет
Попробую.


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
Metalex
Дата 24.3.2009, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет
А как ним пользоваться этим RadioGroup? Если с RadioButton я интуитивно разобрался, то тут посложнее..


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
former
Дата 24.3.2009, 23:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17
Практически точно так же, как с ComboBox. Добавляешь Items и вперед. Лучше почитать литературу или справку.


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
de_Nis
Дата 25.3.2009, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Старательный
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 19.10.2006
Где: Молдова

Репутация: нет
Всего: 6
Можно, не используя RadioGroup, понять выбор пользователя:
Код

 
if RadioButton1.Checked = True then
     begin
       // здесь, как ты пишешь,  "...нужно в зависимости от выбора человека пойти по определенной ветви решения..."
       ...
       ...
     end;


 и так для каждого RadioButton.

Это сообщение отредактировал(а) THandle - 25.3.2009, 16:54
--------------------
Несчастлив не тот, у кого ничего нет, а тот, кто ничего не хочет…
PM   Вверх
former
Дата 25.3.2009, 23:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17
Цитата(de_Nis @  25.3.2009,  09:54 Найти цитируемый пост)
и так для каждого RadioButton.

de_Nis, с case код компактнее и нагляднее получается.



--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
de_Nis
Дата 26.3.2009, 10:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Старательный
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 19.10.2006
Где: Молдова

Репутация: нет
Всего: 6
Не спорю, что компактнее и нагляднее. Но если человек не может разобраться с RadioGroup - как-то нужно ему решить вопрос...
--------------------
Несчастлив не тот, у кого ничего нет, а тот, кто ничего не хочет…
PM   Вверх
Metalex
Дата 26.3.2009, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет
Решил smile Во всем разобрался.


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0901 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.