ЭлементМеню.Родитель (MenuItem.Parent) Свойство

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ГлавноеМеню1 = Ф.ГлавноеМеню();
_Файл = ГлавноеМеню1.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл"));
_Справка = ГлавноеМеню1.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Справка"));

Подменю_Файл_Новый = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Новый"));
Подменю_Файл_Открыть = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Открыть"));
Подменю_Файл_Сохранить = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Сохранить"));
Подменю_Файл_СохранитьКак = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Сохранить как..."));
Подменю_Файл_Выход = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Выход"));

Подменю_Файл_СохранитьКак_txt = Подменю_Файл_СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл *.txt"));
Подменю_Файл_СохранитьКак_rtf = Подменю_Файл_СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл *.rtf"));

Подменю_Справка_Помошник = _Справка.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Помошник"));
Подменю_Справка_Опрограмме = _Справка.ЭлементыМеню.Добавить(Ф.ЭлементМеню("О программе..."));

Форма1.Меню = ГлавноеМеню1;

Подменю_Файл_Открыть.Переключатель = Истина;
Подменю_Файл_Открыть.Помечен = Истина;

МенюВыше = Подменю_Файл_Новый.Родитель;
Сообщить("" + МенюВыше.Текст);

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ГлавноеМеню1 = Ф.ГлавноеМеню();
_Файл = ГлавноеМеню1.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл"));
_Справка = ГлавноеМеню1.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Справка"));

Подменю_Файл_Новый = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Новый"));
Подменю_Файл_Открыть = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Открыть"));
Подменю_Файл_Сохранить = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Сохранить"));
Подменю_Файл_СохранитьКак = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Сохранить как..."));
Подменю_Файл_Выход = _Файл.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Выход"));

Подменю_Файл_СохранитьКак_txt = Подменю_Файл_СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл *.txt"));
Подменю_Файл_СохранитьКак_rtf = Подменю_Файл_СохранитьКак.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Файл *.rtf"));

Подменю_Справка_Помошник = _Справка.ЭлементыМеню.Добавить(Ф.ЭлементМеню("Помошник"));
Подменю_Справка_Опрограмме = _Справка.ЭлементыМеню.Добавить(Ф.ЭлементМеню("О программе..."));

Форма1.Меню = ГлавноеМеню1;

Подменю_Файл_Открыть.Переключатель = Истина;
Подменю_Файл_Открыть.Помечен = Истина;

МенюВыше = Подменю_Файл_Новый.Родитель;

Сообщить(?(
МенюВыше.Текст = "Файл"
, "", "!!! ") + "ЭлементМеню.Родитель (MenuItem.Parent) Свойство" + " " + ТекущаяДата());