Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 19, средняя оценка - 4.84
Dmitry_Rublevsk
0 / 0 / 3
Регистрация: 01.12.2013
Сообщений: 66
#1

RadioGroup - Lazarus

08.12.2013, 14:59. Просмотров 4397. Ответов 6
Метки нет (Все метки)

Помогите выполнить задание:
На городской субботник деканат закрепил за группами электроснабжения следующие объекты:
99Э1 – территория у входа в 14 корпус;
99Э2 – аудитория 15201;
99Э3 – коридор 2 этажа 15 корпуса;
99ЭС – преподавательская кафедры информатики.
Создать программу, которая по выбранной группе сообщает задание на субботник. Список группы оформить в виде радиокнопок RadioGroup, затем GroupBox и RadioButton.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.RadioGroup1Click(Sender: TObject);
var s:Char;
begin
  if radiogroup1.itemindex = '99Э1' then s:='территория у входа в 14 корпус'
 
  if radiogroup1.itemindex = '99Э2' then s:='аудитория 15201'
 
  if radiogroup1.itemindex = '99Э3' then s:='коридор 2 этажа 15 корпуса'
 
  if radiogroup1.itemindex = '99ЭС' then s:='преподавательская кафедры информатики'
 
end;

http://www.cyberforum.ru/lazarus/thread1311483.html
0
Миниатюры
RadioGroup  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2013, 14:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос RadioGroup (Lazarus):

Открытие текстового файла в radiogroup
при нажатии на кнопку открывается текстовый файл выбранный в combobox и...

Перенос текста в RadioGroup Lazarus
Есть RadioGroup в который по средством подключение бд выводятся данные для...

Работа с элементами RadioGroup и edit
Добрый день, как сделать что бы при выборе "имя" в RadioGroup в edit1...

Как снять выбор с RadioGroup/CheckGroup?
Как убрать выбранные галочки и/или кружочки с radio и check group с помощью...

Создать проект, содержащий ComboBox, RadioGroup, CheckBox и ScrollBar
Создать проект, содержащий следующие компоненты: 1 - ComboBox, позволяющий...

6
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25610 / 17163 / 6825
Регистрация: 22.10.2011
Сообщений: 30,360
Записей в блоге: 6
08.12.2013, 15:26 #2
Цитата Сообщение от Dmitry_Rublevsk Посмотреть сообщение
Список группы оформить в виде радиокнопок RadioGroup, затем GroupBox и RadioButton.
Это еще зачем? Положи на форму TRadioGroup, в Инспекторе Объектов найди его свойство Items, и запиши туда:

RadioGroup

, а потом в обработчике OnClick этой же самой радиогруппы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.RadioGroup1Click(Sender: TObject);
var s : string;
begin
  with Sender as TRadioGroup do
    case Items[ItemIndex] of
      '99Э1' : s := 'территория у входа в 14 корпус';
      '99Э2' : s := 'аудитория 15201';
      '99Э3' : s := 'коридор 2 этажа 15 корпуса';
      '99ЭС' : s := 'преподавательская кафедры информатики';
    end;
  ShowMessage(s);
end;
Вот и всё, не надо себе усложнять жизнь...
1
Dmitry_Rublevsk
0 / 0 / 3
Регистрация: 01.12.2013
Сообщений: 66
08.12.2013, 16:12  [ТС] #3
Вот и всё, не надо себе усложнять жизнь...
Благодарю! Полностью с вами солидарен! Но задание есть задание. Нужно двумя способами сделать.
Посмотрите пожалуйста, я выполняю задание с использованием объектов GroupBox и RadioButton. Но выходит ошибка. Подскажите пожалуйста, в чем дело?

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
begin
  If RadioButton1.Checked then s := 'территория у входа в 14 корпус';
  If RadioButton2.Checked then s := 'аудитория 15201';
  If RadioButton3.Checked then s := 'коридор 2 этажа 15 корпуса';
  If RadioButton4.Checked then s := 'преподавательская кафедры информатики';
  Label1.caption:=s;
end;
0
Изображения
 
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25610 / 17163 / 6825
Регистрация: 22.10.2011
Сообщений: 30,360
Записей в блоге: 6
08.12.2013, 16:34 #4
Какая именно ошибка выходит? У меня нормально откомпилировался код, и выдает информацию в Label в зависимости от нажатой радиокнопки.
0
Dmitry_Rublevsk
0 / 0 / 3
Регистрация: 01.12.2013
Сообщений: 66
08.12.2013, 17:07  [ТС] #5
Цитата Сообщение от UI Посмотреть сообщение
Какая именно ошибка выходит? У меня нормально откомпилировался код, и выдает информацию в Label в зависимости от нажатой радиокнопки.
Выделяет строку - procedure TForm1.Button1Click(Sender: TObject);

RadioGroup
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25610 / 17163 / 6825
Регистрация: 22.10.2011
Сообщений: 30,360
Записей в блоге: 6
08.12.2013, 17:12 #6
Ты просто написал метод, но при этом его не назначил кнопке, и не добавил в класс формы. Проще всего - дабл-клик по кнопке, и в полученную заготовку перепиши весь представленный выше код, а старый метод (тот, что у тебя есть сейчас) - убери.
1
Dmitry_Rublevsk
0 / 0 / 3
Регистрация: 01.12.2013
Сообщений: 66
08.12.2013, 17:17  [ТС] #7
Цитата Сообщение от UI Посмотреть сообщение
Ты просто написал метод, но при этом его не назначил кнопке, и не добавил в класс формы. Проще всего - дабл-клик по кнопке, и в полученную заготовку перепиши весь представленный выше код, а старый метод (тот, что у тебя есть сейчас) - убери.
Гениально! От души благодарю!!!
0
08.12.2013, 17:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2013, 17:17
Привет! Вот еще темы с решениями:

RadioGroup
Подскажите как сделать такое задание: Разработать приложение, которое хранит...

RadioGroup
Подскажите, пожалуйста, как в RadioGroup присваивать значения из таблицы Otveti...

RadioGroup в Delphi
Подскажите пожалуйста почему у мена идет подсчет балов неправильно Программа...

RadioGroup и цвет шрифта
Ума не приложу, почему в редакторе я выставляю для шрифта текста в TRadioGroup...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru