Информатика. Программирование в Delphi
          
        
        
          
            153
          
        
        
          Основные события компонента
        
        
          
            Timer
          
        
        
          приведены  в табл. 11.2.
        
        
          
            
              Таблица 11.2
            
          
        
        
          
            Событие
          
        
        
          
            Условие возникновения
          
        
        
          OnTimer
        
        
          Происходит через определенный период времени, указанный в свой-
        
        
          стве Interval в миллисекундах
        
        
          
            Пример 11.1
          
        
        
          Разработать приложение, которое  выводит на поверхность формы изо-
        
        
          бражение идущих часов с часовой, минутной и секундной стрелками. Рекомен-
        
        
          дуемый вид формы приведен на рис. 11.2
        
        
          Выполним следующую последовательность действий.
        
        
          1. Создадим новое приложение.
        
        
          2. Добавим в любое место формы коипонент
        
        
          
            Timer1
          
        
        
          (рис. 11.2). Во время
        
        
          работы приложения его все равно не будет видно.
        
        
          3. Добавим в раздел объявления глобальных констант две константы:
        
        
          const
        
        
          
            //радиус циферблата часов
          
        
        
          r=75;
        
        
          
            //1 градус, выраженный в радианах
          
        
        
          gr=pi/180;
        
        
          Рис. 11.2