Създаване на лентата с инструменти Standard компонент PopupMenu на нашата форма, вие ще забележите, че PopupMenu - е не-визуален компонент. Като цяло това меню PopupMenu изскачащ прозорец, който се появява, когато потребителят кликне с десния бутон на мишката.
Браво, за да видите PopupMenu? За да направите това, просто вратовръзка изскачащо меню за формата. Това се прави в раздела Събития (събития) на основните форми на PopupMenu. След това, в F9 старта на проекта чрез щракване с десния можете да видите следното:
Между другото PopupMenu много прилича MainMenu. но контекстно меню с различни форми, които не са обединени. Можем да кажем, че за една форма - един PopupMenu. и ще е за още един пример PopupMenu.
Самият дизайн на падащото меню в Делфи идва с конструктор:
Данните показват, че има PopupMenu Наименование = N1, както е случаят с MainMenu. Така че основните свойства могат да се преброят на пръстите на едната ръка: Aligment (изравняване), AutoHotKeys (клавишни комбинации), AutoPopup (автоматично вид кликнете с десен бутон), TrackButton (кой бутон активира падащото меню когато е свързан с бутона в лентата с инструменти). Останалите характеристики, считат себе си, няма нищо специално.
ProcedureDoPopup (Sender: TObject); Генерира OnPopup събитие
Въведете TFindItemKind = (fkCommand, fkHandle, fkShortCut); Функция FindItem (Стойност: Word, тип: TFindItemKind): TMenuItem;
Търси за и връща елемента от менюто от
Стойностите стойност равна тип = fkCommand;
Когато Kind = fkHandle - дръжка изскачащ
менюто, когато Любезни = fkShortCut - клавишни комбинации код
ProcedurePopup (х, у: цяло число); Това показва менюто на екрана в съответната позиция
В раздела Събития (събития): OnChange - събитие в менюто Промени, OnPopup - събитие настъпи преди появата на падащото меню.
свойства и събития PopupMenu компоненти, TImage
Свързани статии