Информатика. Программирование в Delphi
          
        
        
          
            236
          
        
        
          латься на соответствующее контекстное меню, то есть содержать имя данно-
        
        
          го меню.
        
        
          Рис. 21.1
        
        
          Основные свойства (
        
        
          
            Properties
          
        
        
          ) компонента
        
        
          
            PopupMenu
          
        
        
          приведены в
        
        
          табл. 21.1.
        
        
          
            
              Таблица 21.1
            
          
        
        
          
            Свойство
          
        
        
          
            Описание
          
        
        
          Alignment
        
        
          Определяет место появления контекстного меню относительно указа-
        
        
          теля мыши:
        
        
          
            paLeft
          
        
        
          – левый верхний угол меню под указателем мыши;
        
        
          
            paCenter
          
        
        
          – центр меню под указателем мыши;
        
        
          
            paRight
          
        
        
          – правый верх-
        
        
          ний угол меню под указателем мыши
        
        
          AutoPopup
        
        
          Признак автоматического появления контекстного меню после нажа-
        
        
          тия правой кнопки мыши
        
        
          Items
        
        
          Элементы меню
        
        
          Name
        
        
          Имя компонента
        
        
          Основные события (
        
        
          
            Events
          
        
        
          ) компонента
        
        
          
            PopupMenu
          
        
        
          приведены
        
        
          в табл. 21.2.
        
        
          
            
              Таблица 21.2
            
          
        
        
          
            Событие
          
        
        
          
            Условие возникновения
          
        
        
          OnChange
        
        
          Происходит при изменении меню
        
        
          OnPopup
        
        
          Происходит до появления контекстного меню
        
        
          
            Пример 21.1
          
        
        
          Написать приложение, которое по щелчку мыши на форме рисует контур
        
        
          пятиконечной звезды, причем цвет звезды должен выбираться с помощью кон-
        
        
          текстного меню. Рекомендуемый вид формы приведен на рис. 21.2.
        
        
          1. Создайте новое приложение.
        
        
          2. Добавьте на форму компонент
        
        
          
            PopupMenu1
          
        
        
          .
        
        
          3. В меню компонента
        
        
          
            PopupMenu1
          
        
        
          создайте пункты меню рис 21.3:
        
        
          
            Черный
          
        
        
          (
        
        
          
            N1
          
        
        
          ),
        
        
          
            Зеленый
          
        
        
          (
        
        
          
            N2
          
        
        
          ),
        
        
          
            Красный
          
        
        
          (
        
        
          
            N3
          
        
        
          ),
        
        
          
            Синий
          
        
        
          (
        
        
          
            N4
          
        
        
          ),
        
        
          
            Желтый
          
        
        
          (
        
        
          
            N5
          
        
        
          ) и
        
        
          
            Случайный
          
        
        
          (
        
        
          
            N6
          
        
        
          ).