// Switches « New » with « Open » in the « file » menu: // Items[0] identifies the first TMainMenu item « File » // [1] identifies the second submenu item « Open »
MainMenu1.Items[0][1].MenuIndex := 0;
// To Switch the « Search » with « Edit» menu , write :
MainMenu1.Items[1].MenuIndex := 2;
Here's the translation of the text into Russian:
Делфи-код, демонстрирующий, как поменять позиции двух пунктов меню в компоненте TMainMenu.
Вот разбивка каждого ряда кода:
Пример 1: Поменять местоположение "Новый" с "Открыть" в меню "Файл"
MainMenu1.Items[0][1].MenuIndex := 0;
MainMenu1 - экземпляр компонента TMainMenu.
Items - свойство, возвращающее массив объектов TMenuItem, представляющих основные пункты меню.
[0] - доступ к первому элементу массива, который представляет меню "Файл".
[1] - доступ ко второму элементу массива внутри меню "Файл", который представляет пункт "Открыть".
MenuIndex - свойство, определяющее позицию пункта меню. Установка его значения в 0 перемещает пункт "Открыть" на первое место, эффективно поменянув его местоположение с предыдущим пунктом ("Новый").
Пример 2: Поменять местоположение "Поиск" с "Редактировать"
MainMenu1.Items[1].MenuIndex := 2;
В этом случае мы доступ ourselves к второму элементу массива основных пунктов меню (Items[1]), который представляет пункт "Поиск".
Установка его свойства MenuIndex в 2 перемещает его на третье место в меню, эффективно поменянув его местоположение с предыдущим пунктом ("Редактировать").
В целом, эти строки позволяют динамически переставлять позиции пунктов меню в компоненте TMainMenu.
В статье описывается, как изменить порядок пунктов меню в программном коде на языке Delphi, используя класс TMainMenu и метод MenuIndex.
