Проблема слияния меню Delphi
Я пытаюсь объединить два основных меню вместе, но у меня возникают проблемы с получением правильного результата с подпунктами. Я использую свойство GroupIndex в своих MenuItems для управления слиянием / вставкой.
Menu1 (с индексами групп) выглядит так
- Файл = 10
- Открыто = 11
- Закрыть = 12
- Изменить = 20
- Вырезать = 21
- Вставить = 22
- Помощь = 90
- О себе = 91
Menu2 похоже на это
- Изменить = 20
- Очистить = 23
- Виджеты = 30
- Widget1 = 31
- Widget2 = 32
И я делаю
Menu1.Merge(Menu2);
Я хочу, чтобы объединенное меню имело новое верхнее меню «Виджеты» и новую команду «Очистить» в меню «Правка». «Виджеты» работают нормально, но меню «Правка» потеряло функцию «вырезать и вставить», чего я не хотел.
Как я могу остановить исчезновение команд «Вырезать» и «Вставить»?
Ответы 1
Функция слияния меню в Delphi работает несколько иначе, чем вы ожидали: она нерекурсивна (к сожалению!). Это означает, что когда вы вызываете Menu1.Merge, меню «Правка» Menu1 получает заменены от Menu2.
У вас есть два варианта:
- Добавьте вручную «Вырезать» и «Вставить» в Menu2.
- Напишите свою собственную функцию слияния.
Некоторое время назад у меня была такая же проблема (см. этот ТАК вопрос):
What I eventually ended up with, is using the Toolbar2000 package for all my menus and toolbars. You can then download a very nice piece of code, called TB2Merge, which does exactly what you want.
Я думаю, вы также можете основать любой код слияния меню, написанный на заказ, на TB2Merge ...
Спасибо, я боялся, что это может быть ответ. Я посмотрю на Toolbar2000