Переключатели
ПРИМЕЧАНИЕ------------------------------------------------------------------------------
Событие OnClick для компонента TRadioButton имеет одну особенность: оно вызывается только при установке переключателя. Если переключатель уже установлен, то щелчок на нем левой кнопки мыши не вызовет события OnClick.
Рассмотрим пример, подобный предыдущему, где для управления реакцией на щелчок на кнопке будем использовать переключатели.
1. С помощью команды File ► New ► VCL Form Application создайте новое приложение.
2.
Разместите на форме одну кнопку и три элемента TRadioButton. Затем перейдите в окне Object Inspector на вкладку Properties и, используя свойство Caption, измените название кнопки на ОК. Для переключателей аналогичным образом задайте следующие поясняющие надписи:■ Ничего — для первого;
■ Звуковой сигнал — для второго;
■ Завершение программы — для третьего.
3. Напишите следующий обработчик события OnClick кнопки ОК:
procedure TForml.ButtonlClick(Sender: TObject): begin
if RadioButton2.Checked then Beep;
if RadioButton3.Checked then Application.Terminate; end;
4. Выполните компиляцию программы. После ее запуска на экран будет выведена форма, содержащая одну кнопку и три переключателя. Если установлен первый переключатель (рис. 8.21, а), то при щелчке на кнопке ОК ничего не произойдет. При установке второго переключателя (рис. 8.21, б) щелчок на кнопке вызовет звуковой сигнал. Если установлен третий переключатель, то щелчок на кнопке приведет к завершению программы.
Еще по теме Переключатели:
- Маленький комментарий про открытие гармонии под воздействием нагрузок
- Построение вторичной прогрессии
- Этюды на выражение вины и стыда
- Бдительность
- Бдительность
- Основные этапы управления.
- Сущность процесса управления в организациях.
- КАК УВЕИЧИТЬ СВОЮ СИЛУ
- Забыть - значит вступить в игру.
- 2.2. Общая композиция анкеты