Основные методы tMenuItem

Add Добавляет новый элемент в свойство Items данного раздела, содержащее список подразделов его выпадающего меню.

Определение

function Add: TCollectionItem;

Описание Метод Add создает новый объект TCollectionItem и добавляет его в конец массива Items. Возвращает созданный объект.

Пример:

var

NewItem: TMenuItem;

I : integer;

begin

{ first create the separator }

NewItem := TMenuItem.Create(Filemenu);

NewItem.Caption := '-';

{ add the new item to the Filemenu menu }

Filemenu.Add(NewItem);

end;

Delete Удаляет подраздел, указанный своим индексом, из массива свойства Items данного раздела меню. Индексы начинаются с 0.

Объявление

procedure Delete(Index: Integer);

Описание Процедура Delete удаляет из списка элемент с указанным индексом. Во всех случаях индексы считаются, начиная с 0 (0 - индекс первого элемента). Из списка строк строка удаляется вместе со ссылкой на связанный с ней объект. Удаление элемента меню ведет к удалению и связанного с ним подменю (если таковое имеется). После удаления элемента список перестраивается TList.

GetParent : Menu Возвращает меню типа TMenu, частью которого является данный раздел.

IndexOf Возвращает индекс раздела меню, в подменю которого расположен данный раздел. Индекс соответствует позиции в массиве Items. Если данный раздел расположен не в подменю, возвращается -1.

Определение

function IndexOf(const AName: string): Integer;

Описание Метод IndexOf возвращает индекс описания в массиве Items по его имени AName. Индексы начинаются с 0. Если описания с именем AName нет, то возвращается -1. Это можно использовать для определения наличия описания перед применением метода Find.

Insert Вставляет указанный подраздел в выпадающее меню данного раздела и задает индекс свойства Items вставляемого раздела.

Определение

function Insert(Index: Integer): TCollectionItem;

Описание Метод Insert создает новый объект TCollectionItem и вставляет его в массив Items в позицию, указанную параметром Index. Индексы прежних объектов, начиная с Index, увеличиваются на 1.

Пример:

procedure TForm1.Button1Click(Sender: TObject);

var

NewItem: TMenuItem;

begin

NewItem := TMenuItem.Create(FileMenu);

try

NewItem.Caption := 'Do this';

FileMenu.Insert(1, NewItem);

except

NewItem.Free;

raise; { reraise the exception }

end;

end;

Remove Удаляет указанный подраздел из массива свойства Items данного раздела меню.

Описание Функция Remove удаляет указатель, равный заданному параметру Item, из списка TList. Функцию можно использовать вместо метода Delete, когда не известен индекс, соответствующий удаляемому указателю. Функция возвращает индекс, который имел данный указатель до его удаления. Индексы всех последующих указателей в списке уменьшаются на 1. Свойство Count также уменьшается на 1. Если массив содержит несколько одинаковых указателей, то удаляется только первое вхождение этого указателя.

События tMenuItem

OnAdvancedDrawItem Наступает, когда необходимо перерисовать нестандартное изображение раздела меню (если свойство OwnerDraw = true). Отличается от OnDrawItem параметрами.

OnClick Происходит при щелчке левой кнопки мыши на разделе меню

OnDrawItem Наступает, когда необходимо перерисовать нестандартное изображение раздела меню (если свойство OwnerDraw = true)

OnMeasureItem Происходит перед прорисовкой нестандартного (если свойство OwnerDraw = true) изображения раздела, чтобы определить его размер