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

                                               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        – левый верхн ий у гол м ен ю н а ход ит ся у ку рсора ;