Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 14.05.2007, 09:03   #1
KlErik
Пользователь
 
Аватар для KlErik
 
Регистрация: 09.01.2007
Сообщений: 18
По умолчанию Radiogroup & radiobutton

Помогите с этими компонентами, не могу сделать так чтобы при выборе переключателя а затем нажатии кнопки, выходил файл или сообщение. Главная суть заключается в то чтобы именно при отмеченном переключателе работала кнопка!
Заранее спасибо!
KlErik вне форума Ответить с цитированием
Старый 14.05.2007, 09:35   #2
Vincent
Пользователь
 
Аватар для Vincent
 
Регистрация: 02.02.2007
Сообщений: 29
По умолчанию

Если используешь RadioButton, проверяй у каждой свойство Checked, если RadioGroup - см. у него свойство ItemIndex. В первом случае можно сделать например так:

procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked then ShowMessage('RB 1 Checked!')
else if RadioButton2.Checked then ShowMessage('RB 2 Checked!')
else if RadioButton3.Checked then ShowMessage('RB 3 Checked!');
end;

Естественно, вместо ShowMessage любые необходимые действия А для RadioGroup еще проще:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('RB ' + IntToStr(RadioGroup1.ItemIndex + 1) + ' Checked!');
end;

(Только не забывайте, что элементы нумеруются с 0, т.е. первая radiobutton будет иметь индекс 0. В случае, если ничего не выбрано ItemIndex = -1)
Быстро пойманный эксепшн исключением не считается
Vincent вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
рамка вокруг Radiogroup lenivec Общие вопросы Delphi 5 12.01.2008 17:06
компонент RadioGroup был горизонтальным, а не вертикальным? Artem Общие вопросы Delphi 2 08.07.2007 22:54
помощь с radiobutton paralitic Компоненты Delphi 1 06.06.2007 09:15
RadioGroup в Delphi 2005 Nez Компоненты Delphi 7 15.02.2007 20:16