Теоретические сведения. Компонент группа переключателей (TRadioGroup)

Компонент группа переключателей (TRadioGroup)

Компонент TRadioGroup используют для создания группы переключателей. Когда пользователь устанавливает один из переключателей группы, все остальные автоматически снимаются. Таким образом, какие-либо два переключателя, размещенные на форме, могут быть установлены одновременно, только тогда, когда они расположены в разных группах.

Группа переключателей помещается в форму с использованием кнопки на стандартной панели инструментов. Некоторые свойства группы переключателей приведены в табл. 6.1.

Таблица 6.1. Свойства TRadioGroup

Пример 6.1. Создадим программу, в которой при выборе соответствующего возраста и нажатии кнопки «Ответ» в окно редактирования выводится соответствующий комментарий. Экранная форма основной программы показана на рис. 6.1. Приведем фрагмент кода программы, обрабатывающей событие при нажатии кнопки «Ответ»:

procedure TForm1.Button1Click(Sender: TObject);

begin

with Edit1 do

case RadioGroup1.ItemIndex of

0: text:='Ваш возраст до 20 лет';

1: text:='Ваш возраст от 21 до 30 лет';

2: text:='Ваш возраст от 31 до 40 лет';

3: text:='Ваш возраст от 41 до 50 лет';

4: text:='Ваш возраст от 51 до 60 лет';

5: text:='Ваш возраст после 60 лет';

end;

end;

Рис. 6[BP6].1. Экранная форма примера 6.1

События клавиатуры

В оконных компонентах Delphi определены события, связанные с клавиатурой и представленные в табл. П.6.2.

Пример 6.2. Создадим программу, в которой в окно редактирования пользователю разрешается вводить только целые числа без знака, разделенные запятыми и пробелами. Экранная форма основной программы изображена на рис. 6.2. Приведем фрагмент кода программы, обрабатывающей событие ввода данных в поле редактирования:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['0'..'9',' ',',']) then

key:=#0;

end;

Рис. 6.2. Экранная форма примера 6.2

Таблица П.6.2. События, связанные с клавиатурой

Порядок выполнения работы

1. Создать форму. Изменить пиктограмму системного меню формы (верхний левый угол) на любую отличную от стандартной. Разместить на форме:

· текстовые поля с указанием номера лабораторной работы, номера варианта и постановкой задачи;

· поля ввода исходных данных;

· поля вывода данных;

· компоненты группы переключателей TRadioButton — TRadioGroup;

· кнопки «Вычислить» и «Выход». При нажатии на кнопку «Вычислить» должно вычисляться выражение согласно варианту с выводом результата в поле вывода. При нажатии кнопки «Выход» должно происходить закрытие окна программы.

2. В поля ввода допустимо вводить только цифры и точку, все остальные символы не должны вводиться. Поля вывода не должны быть доступны для редактирования. Один из переключателей должен быть активен при загрузке формы. Разместить на форме кнопки «Вычислить» и «Выход». При нажатии на кнопку «Вычислить» должно вычисляться выражение согласно варианту с выводом результата в поле вывода.

3. Обработать все возможные исключительные ситуации. При нажатии кнопки «Выход» должно произойти закрытие окна программы. Все Компоненты должны быть снабжены контекстной подсказкой, появляющейся при наведении курсора мыши. Приблизительный вид формы показан на рис. 6.3:

Рис. 6.3. Экранная форма для домашнего
задания № 6

Варианты:

Создать программу перевода различных единиц измерений:

1. 1 унция = 28.353495 г = 142 карата;

2. 1 драхм = 1.77185 г = 0.06249 унций;

3. 1 карат = 0.2 г = 2.9412 гран;

4. 1 гран = 0.068 г = 0.038378 драхм;

5. 1 пайп = 54.18 пек = 477.33 л;

6. 1 галлон (брит.) = 1.2 галлон (США) = 4.546 л;

7. 1 галлон (США) = 0.0347 сак = 3.785 л;

8. 1 стопка = 0.0568 л = 0.00012 пайпа;

9. 1 квартет = 291 л = 5123.24 стопки;

10. 1 страйк = 72.73 л =1280.46 стопок;

11. 1 челдрон = 1.309 л = 0.149 пека;

12. 1 сак = 109 л =1.499 страйка;

13. 1 пек = 8.81 л = 0.07929 сака;

14. 1 корд мал. = 3.624 куб. м = 128 куб. футов;

15. 1 стандарт = 4.672 куб. м = 0.165 рода;

16. 1 род = 28.3 куб. м = 1000 куб. футов;

17. 1 чейн строительный = 30.48 м = 100 футов;

18. 1 фингер =11.4 см = 4.5 дюймов;

19. 1 нейл = 5.7 см = 2.25 дюймов;

20. 1 фут = 0.3048 м = 12 дюймов;

21. 1 ярд = 0.9144 м = 3 фута;

22. 1 кабельтов брит. =0.183 км = 680 футов;

23. 1 кабельтов США =219.5 м = 720 футов;

24. 1 дюйм = 2.54 см = 12 линий;

25. 1 морская миля = 1.852 км = 6076 футов.

Контрольные вопросы

1. Компонент TEedit (поле ввода). Особенности его использования для вывода результата.

2. Компонент TRadioButton. Основные свойства.

3. Компонент TRadioGroup. Основные свойства.

4. Обработка событий клавиатуры.

Домашнее задание № 7
Создание Справочного файла

Цель работы: получение навыков в создании и подключении к приложению файлов справки (*.hlp).

Не нашли, что искали? Воспользуйтесь поиском: