Введение в программирование

       

Класс TPopupMenu


Класс TPopupMenu инкапсулирует поведение контекстных меню, также называемых всплывающими или popup-меню.

Он предназначен для создания меню, отображаемых при щелчке пользователя правой кнопкой мыши на элементе управления. Чтобы контекстное меню поставить в соответствие конкретному элементу управления, следует установить значение свойства PopupMenu элемента управления равным имени объекта TPopupMenu. Для этого в инспекторе объектов следует выбрать значение свойства PopupMenu из автоматически предлагаемого списка объектов типа TPopupMenu.

Базовым классом для TPopupMenu является класс TMenu.

Следующий пример иллюстрирует отображение контекстного меню в указанной точке экрана по щелчку мыши:

procedure Form1.FormCreate(Sender: TObject); begin PopupMenu1.AutoPopup := False; end; procedure Form1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin PopupMenu1.Popup(X, Y); end;


Содержание раздела