|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.05.2007, 09:03 | #1 |
Пользователь
Регистрация: 09.01.2007
Сообщений: 18
|
Radiogroup & radiobutton
Помогите с этими компонентами, не могу сделать так чтобы при выборе переключателя а затем нажатии кнопки, выходил файл или сообщение. Главная суть заключается в то чтобы именно при отмеченном переключателе работала кнопка!
Заранее спасибо! |
14.05.2007, 09:35 | #2 |
Пользователь
Регистрация: 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)
Быстро пойманный эксепшн исключением не считается
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
рамка вокруг Radiogroup | lenivec | Общие вопросы Delphi | 5 | 12.01.2008 16: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 19:16 |