Программирование в среде Delphi. Часть 2. Создание оконных приложений. Садовская О.Б. - 41 стр.

UptoLike

Составители: 

41
котором следует указать имя соответствующего компонента-меню.
Контекстное меню, как и главное, создаётся при помощи конструкто-
ра меню (Menu Designer).
Элементы, как главного , так и контекстного меню являются объ-
ектами класса TMenuItem, который является непосредственным потом-
ком класса TComponent. Элемент меню может представлять собой
подменю, команду или разделительную линию .
Если элемент представляет собой подменю, имеющееся у него
свойство Items должно содержать соответствующие пункты этого под -
меню. Если элемент является разделительной линией, то его свойство
Caption должно содержать значение «-» (знак «минус»). Во всех ос-
тальных случаях элемент меню будет командой, т.е. с этим элементом
меню будет связан обработчик события OnClick. Рассмотрим основные
свойства класса TMenuItem.
property Caption : string;
Содержит текст элемента меню. Если перед некоторым символом тек-
ста поместить символ &, то таким образом можно задать клавишу
быстрого перехода (акселератор).
property Checked : Boolean;
Если свойство имеет значение true, то элемент меню помечается «га -
лочкой».
property Enabled : Boolean;
Если свойство имеет значение true, то элемент меню реагирует на со-
бытия от мыши и клавиатуры . В противном случае элемент не дос-
тупен и выделяется тусклым цветом . По умолчанию имеет значение true.
property Items[index : integer] : TMenuItem; default;
Свойство задаёт младшие элементы меню по отношению к текущему
элементу. Число элементов определяется свойством Count. Нумерация
начинается с нуля . Свойство доступно только для чтения .
property ShortCut : TShortCut;
Определяет комбинацию «горячих» клавиш , обеспечивающих быстрый
выбор данного элемента меню.
В классе TMenuItem определено событие
property OnClick : TNotifyEvent:
Возникает при выборе элемента меню мышью или при нажатии на
клавишу Enter, когда элемент меню является активным. Это же собы-
тие является и событием по умолчанию .
Контекстное меню является экземпляром класса TPopupMenu, ко-
торое так же, как и класс TMainMenu, является потомком класса
TMenu. Рассмотрим основные характеристики, которые вводятся в
классе TPopupMenu.
property Alignment : TPopupAlignment;
Определяет расположение контекстного меню относительно курсора
мыши:
paLeft левый верхний угол меню находится у курсора ;
                                               41
кот ором след у ет у ка за т ь им я соответ ст ву ю щего ком пон ен т а -м ен ю .
К он текст н ое м ен ю , ка к и гла вн ое, созд а ёт ся при пом ощи кон ст ру кт о-
ра м ен ю (Menu Designer).
      Э лем ен ты, ка к гла вн ого, т а к и кон текст н ого м ен ю я вля ю т ся об ъ-
ект а м и кла сса TMenuItem, кот орый я вля ет ся н епосред ствен н ым потом -
ком кла сса TComponent. Э лем ен т м ен ю м ож ет пред ст а вля т ь соб ой
под м ен ю , ком а н д у или ра зд елит ельн у ю лин ию .
      Е сли э    лем ен т пред ст а вля ет соб ой под м ен ю , им ею щееся у н его
свойст во Items д олж н о сод ерж а ть соот вет ст ву ю щие пу н кт ы э         того под -
м ен ю . Е сли э   лем ен т я вля ется ра зд елит ельн ой лин ией, т о его свойст во
Caption д олж н о сод ерж а т ь зн а чен ие «-» (зн а к «м ин у с»). В о всех ос-
т а льн ых слу ча я х э   лем ен т м ен ю б у д ет ком а н д ой, т .е. с эт им э лем ен том
м ен ю б у д ет свя за н об ра б от чик соб ытия OnClick. Ра ссм от рим осн овн ые
свойст ва кла сса TMenuItem.
property Caption : string;
Сод ерж ит текст э       лем ен т а м ен ю . Е сли перед н екоторым сим волом т ек-
ст а пом естит ь сим вол &, то т а ким об ра зом м ож н о за д а т ь кла виш у
б ыстрого переход а (а кселера т ор).
property Checked : Boolean;
Е сли свойст во им еет зн а чен ие true, то э          лем ен т м ен ю пом еча ет ся «га -
лочкой».
property Enabled : Boolean;
Е сли свойст во им еет зн а чен ие true, то э         лем ен т м ен ю реа гиру ет н а со-
б ытия от м ыш и и кла виа т у ры. В противн ом слу ча е э               лем ен т н е д ос-
т у пен и выд еля ет ся т у склым цветом . По у м олча н ию им еет зн а чен ие true.
property Items[index : integer] : TMenuItem; default;
Свойст во за д а ёт м ла д ш ие э     лем ен ты м ен ю по отн ош ен ию к т еку щем у
э лем ен т у . Ч исло э   лем ен тов опред еля ет ся свойст вом Count. Н у м ера ция
н а чин а ет ся с н у ля . Свойст во д ост у пн о т олько д ля чт ен ия .
property ShortCut : TShortCut;
Опред еля ет ком б ин а цию «горя чих» кла виш , об еспечива ю щих б ыст рый
выб ор д а н н ого э   лем ен т а м ен ю .
      В кла ссе TMenuItem опред елен о соб ыт ие
property OnClick : TNotifyEvent:
В озн ика ет при выб оре э         лем ен та м ен ю м ыш ью или при н а ж а т ии н а
кла виш у Enter, когд а э       лем ен т м ен ю я вля ет ся а кт ивн ым . Э т о ж е соб ы-
т ие я вля ет ся и соб ыт ием по у м олча н ию .
      К он текст н ое м ен ю я вля ет ся э     кзем пля ром кла сса TPopupMenu, ко-
т орое т а к ж е, ка к и кла сс TMainMenu, я вля ет ся потом ком кла сса
TMenu. Ра ссм отрим осн овн ые ха ра кт еристики, которые ввод я тся в
кла ссе TPopupMenu.
property Alignment : TPopupAlignment;
Опред еля ет ра сполож ен ие кон т екстн ого м ен ю отн осительн о ку рсора
м ыш и:
paLeft        – левый верхн ий у гол м ен ю н а ход ит ся у ку рсора ;