Створюючи з панелі інструментів Standard компонент PopupMenu на нашій формі, ви помітите, що PopupMenu - це невізуальний компонент. Взагалі PopupMenu це спливаюче контекстне меню, яке виникає при натисканні користувача правою кнопкою миші.
Що ж зробити, щоб побачити PopupMenu? Для цього відразу прив'яжіть спливаюче меню до форми. Це робиться на вкладці Events (події) головною форми PopupMenu. Після цього при запуску проекту F9 клацаючи правою кнопкою можна побачити наступне:
До речі PopupMenu багато в чому нагадує MainMenu. але контекстні меню різних форм не об'єднуються. Можна говорити, що для однієї форми - одне PopupMenu. а для наступної наприклад інше PopupMenu.
Саме проектування спливаючого меню в Delphi відбувається за допомогою конструктора:
На малюнку показано, що PopupMenu має Name = N1 як і в випадку з MainMenu. Так що основні властивості можна перелічити на пальцях: Aligment (вирівнювання), AutoHotKeys (гарячі клавіші), AutoPopup (автоматичне поява при натисканні правої кнопки), TrackButton (яка кнопка активує спливаюче меню, якщо пов'язано з кнопкою панелі інструментів). Решта властивості розгляньте самостійно, там нічого особливого немає.
ProcedureDoPopup (Sender: TObject); Генерує подія OnPopup
Type TFindItemKind = (fkCommand, fkHandle, fkShortCut); Function FindItem (Value: Word, Kind: TFindItemKind): TMenuItem;
Шукає і повертає розділ меню з
Значення Value рівне Kind = fkCommand;
При Kind = fkHandle - дескриптор спливаючого
меню, при Kind = fkShortCut - код гарячих клавіш
ProcedurePopup (x, y: Integer); Показує меню у зазначеній позиції екрану
На вкладці Events (події): OnChange - подія при изменеия меню, OnPopup - подія відбувається перед поява спливаючого меню.
властивості і подія компонентів PopupMenu, TImage