BorlanD Russian Сommunity

На данном уроке изучим основы создания меню. После обычного меню посмотрим, как в Delphi можно работать с контекстным меню. Компонент для него расположен на вкладке Standard палитры компонентов.

Двойным щелчком расположите его на форме. Как и в случае с обычным меню, место для его расположения сгодится любое - все равно этот компонент на этапе выполнения невидим (если мы контекстное меню не вызвали, разумеется).

Для того, чтобы при щелчке правой кнопкой мыши на некотором элементе появлялось контекстное меню, мы должны написать в свойстве PopupMenu для этого элемента написать имя нашего контекстного меню. Сделаем это, например, для нашей формы.

Для этого проще всего нажать на стрелочку вниз в правом столбце инспектора объектов - там в combobox будут присутствовать все контекстные меню, расположенные на форме. В нашем случае оно будет только одно.

Добавляются новые пункты в контекстное меню аналогично стандартному меню - через редактор. Для его появления просто сделайте двойной щелчок на нашем контекстном меню или нажмите на кнопку с двоеточием рядом с его свойством Items. Добавьте в наше меню два пункта - Пункт 1 и Пункт 2.

Для добавления обработчика для некоторого пункта нашего меню просто сделайте двойной щелчок на нем. Создастся заготовка для кода.

 

Код:

 

procedure TForm1.N11Click(Sender: TObject);

begin

  ShowMessage('Пункт1');

end;

 

 

Запускайте программу (F9). При щелчке правой кнопкой мыши на форме должно появиться наше контекстное меню. При выборе в этом меню подменю Пункт 1 появится messagebox с соответствующей надписью. Вообще же контекстное меню можно прибавить к любому элементу. Просто задайте свойство PopupMenu.

            Всё на этом урок закончен.

Просмотров: 3840 | Категория: Delphi 7 | Дата: 11.05.2008