Пример 1. Компонент TPopupMenu

Компонент TPopupMenu

В отличие от главного меню локальное меню постоянно не отображается на экране, а выводится по мере необходимости. Для вызова локального меню используется правая кнопка мыши. Локальное меню является одноуровневым, хотя это и необязательно.

Локальное меню обычно используется для динамического изменения свойств того интерфейсного элемента, над которым в данный момент находится курсор мыши. Локальное меню наряду с изменением свойств интерфейсных элементов обеспечивает доступ к командам. Причем это происходит быстрее, чем если команда вызывается из обычного меню. Во многих случаях отдельные элементы локального меню дублируют наиболее часто используемые команды главного меню. В отличие от главного, локальное меню может быть создано для любого оконного компонента.

Чтобы связать щелчок правой кнопки мыши на соответствующей компоненте необходимо свойству PopupMenu данного компонента присвоить имя локального меню. Например:

Label1.PopupMenu:= PopupMenu1;

Поместим на форму компоненты Memo и PopupMenu. Чтобы войти в Menu Designer, дважды щескните на всплывающем меню. Поместим в это меню три пункта с именами Cut, Copy и Paste. В их обработчиках события OnClick помести следующие строки:

Memo1.CutToClipboard;

Memo1.CopyToClipboard;

Memo1.PasteFromClipboard;

Удалите содержимое свойства Lines компонента Memo, установив его свойство ScrollBars в ssBoth.

Присвойте имя компонента PopupMenu в качестве значения свойству PopupMenu.

Запустите программу и введите какой-нибудь текст. С помощью мыши выделите одно или два слова, затем нажмите правую кнопку мыши. Выбирая из всплывающего меню пункты с именами Cut, Copy и Paste, можно увидеть эффект.

Используя туже программу, выберите всплывающее меню из списка в Object Inspector. Перейдите на страницу Events, дважды щелкнув на событии OnPopup, вставьте следующий текст:

Cut1.Enabled:= Memo1.SelLength > 0;

Copy1.Enabled:= Cut1.Enabled;

Paste1.Enabled:= Clipboard.HasFormat(CF_Text);

В строку Uses модуля добавьте ClipBrd.

Запустив программу снова и убедитесь, что пункты Cut и Copy всплывающего меню оказываются заблокированными, когда нет выделенного текста, который можно было бы выделить и скопировать. Пункт Paste будет недоступен, если нет текста для вставки.

В этом и состоит основное назначение события Popup – предоставить возможность настроить всплывающее меню таким образом, чтобы оно соответствовало текущим условиям.

Множество различных компонентов может быть ассоциировано с одним всплывающим меню посредством своего свойства PopupMenu. Свойство PopupComponent всплывающего меню делает эту связь двухсторонней. Оно сообщает компоненту PopupMenu, поверх какого компонента ему следует всплывать.

Другой пример:

Type

Tform1: class(TForm);

...

PopupMenu1: TPopupMenu;

N8: TMenuItem;

N9: TMenuItem;

Procedure N8Click;

Procedure N9Click;

end;

Дата добавления: 2014-01-07