Информатика. Программирование в Delphi
          
        
        
          
            246
          
        
        
          
            
              Таблица 22.2
            
          
        
        
          
            Событие
          
        
        
          
            Условие возникновения
          
        
        
          OnClick
        
        
          При щелчке мышью
        
        
          OnMouseDown
        
        
          При нажатии кнопки мыши
        
        
          OnMouseUp
        
        
          При отпускании кнопки мыши
        
        
          OnMouseMove
        
        
          При перемещении мыши
        
        
          OnKeyPress
        
        
          При нажатии клавиши клавиатуры
        
        
          OnKeyDown
        
        
          При нажатии клавиши клавиатуры.
        
        
          OnKeyUp
        
        
          При отпускании нажатой клавиши клавиатуры
        
        
          OnEnter
        
        
          При получении элементом управления фокуса
        
        
          OnExit
        
        
          При потере элементом управления фокуса
        
        
          
            Пример 22.1
          
        
        
          Написать приложение
        
        
          
            Будильник
          
        
        
          . Рекомендуемый вид формы приведен
        
        
          на рис. 22.2. Она содержит информацию о текущем времени и все необходимые
        
        
          кнопки (+,
        
        
          −
        
        
          ) для установки времени срабатывания будильника, причем для ча-
        
        
          сов, минут и секунд отдельно. Во время срабатывания будильника в окно
        
        
          
            Со-
          
        
        
          
            общение
          
        
        
          выводится какое
        
        
          −
        
        
          либо бодрое высказывание.
        
        
          Рис. 22.2
        
        
          1. Создайте новое приложение.
        
        
          2. Добавьте на форму компоненты:
        
        
          −
        
        
          
            GroupBox1
          
        
        
          с заголовком
        
        
          
            Сейчас
          
        
        
          . На него добавьте
        
        
          
            Label1
          
        
        
          с заголовком
        
        
          
            00:00:00
          
        
        
          ;
        
        
          −
        
        
          
            GroupBox2
          
        
        
          с заголовком
        
        
          
            Сигнал
          
        
        
          . На него добавьте
        
        
          
            Label2
          
        
        
          ,
        
        
          
            Label3
          
        
        
          и
        
        
          
            La-
          
        
        
          
            bel4
          
        
        
          с заголовком
        
        
          
            00
          
        
        
          . Далее добавьте компоненты
        
        
          
            BitBtn1
          
        
        
          (
        
        
          
            Плюс
          
        
        
          ),
        
        
          
            BitBtn2
          
        
        
          (
        
        
          
            Минус
          
        
        
          ),
        
        
          
            BitBtn3
          
        
        
          (
        
        
          
            Плюс
          
        
        
          ),
        
        
          
            BitBtn4
          
        
        
          (
        
        
          
            Минус
          
        
        
          ),
        
        
          
            BitBtn5
          
        
        
          (
        
        
          
            Плюс
          
        
        
          ),