Перемещение пунктов меню

Delphi , Компоненты и Классы , Меню

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// 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.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Меню ::