TMainMenu для всех Forms

@Регина · Регистрация: 07.04.2008

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста! какое свойство MainMenu нужно выбрать и исправить, чтобы одна и та же MainMenu, появлялась на разных формах. В моем случае, имеется несколько форм связанных между собой. Но MainMenu выходит там, куда я ее поместила, а на других нет. Неужели мне придется на всех форма ставить этот элемент, там ведь столько команд нжно будет повторять, излишняя перегрузка. что делать???

@Cooler2 · 20.12.2008, 16:07

Надо сделать так:
В модуле каждой формы в поле implementation пропишите форму, которой находиться компонент с меню следующим образом:
uses Unit1 {и т.д};
(альтернативный вариант для всех форм File->UseUnit и укажите форму 1, где расположено компонент с меню.)
В свойстве PopupMenu каждой формы выберите Form1.PopupMenu1.
Все.

@Регина · 20.12.2008, 16:16 **[ТС]**

да, модули сделала через use unit, и теперь на форме1( с меню) в коде после implementation, появилась нужная мне форма4. но при указании на форме4 свойства popupmenu ничего не выходит.

@Cooler2 · 20.12.2008, 16:26

На форме 4 нужно добавить форму 1 (Uses Форма 1), через File->UseUnit. Потом потом только в свойстве формы 4 PopupMenu указать Форма1.PopupMenu Поробойте, результат отпишите тут.

@Регина · 20.12.2008, 16:30 **[ТС]**

я так и сделала, теперь снова попробовала на use unit, но там уже не выходит форма1. получается все верно, но в свойстве все равно ничего не выходит.

@Cooler2 · 20.12.2008, 16:44

Вот пример. Посмотрите его. Будет нагляднее. 2 форма модальная, 3 форма - не модальная. А меню установлена на 1 - й форме. Отпишитесь потом. (Пример в Delphi7)

@Регина · 20.12.2008, 17:50 **[ТС]**

что-то этот файл не открывается и не скачивается, если не сложно скиньте пожалуйста мне его на krasotulka77777@mail.ru. заранее большое спасибо!!!

Добавлено через 52 минуты 39 секунд
может я лучше тебе свою прогу скину?

@Cooler2 · 21.12.2008, 19:48

Регина! Вот и вся моя внимательность. Я-то думал, что ты мне про PopupMenu пишешь...

Извини. И куда же это девалась моя внимательность в субботний вечер???)))

Вот рабочий пример с компонентом TMainMenu, который должен показать тебе как это можно реализовать.

@Регина · 24.12.2008, 18:02 **[ТС]**

это опять я

у меня получилось, но наполовину. видимо этот код для 1-2 форм только работает, а у меня их 4 должно открыться.

. Выходит такая вот ошибка: "Menu "MainMenu1 is already being to used by another form"!!!!!!!!!

@Cooler2 · 24.12.2008, 20:22

Сообщение от Регина

это опять я

у меня получилось, но наполовину. видимо этот код для 1-2 форм только работает, а у меня их 4 должно открыться.

. Выходит такая вот ошибка: "Menu "MainMenu1 is already being to used by another form"!!!!!!!!!

Ошибка "MainMenu1 is already being to used by another form" означает, что меню уже присвоено какой-то форме, т.е. ты забыла в коде прописать по выходу

Code
1
Form#.Menu:=nil;

Вот работающий пример с 4 формами.
P.S.: одно и то же меню нельзя присвоить одновременно двум формам.
У тебя одновременно 4 формы открываются?

@Sp · 09.11.2009, 09:19

А как меню вернуть на основную форму при закрытии формы 2

@Sp · 09.11.2009, 14:55

А как сделать если надо открыть не 1-у, а 2,3 формы сразу

@Cooler2 · 10.11.2009, 17:55

Сообщение от Sp

А как меню вернуть на основную форму при закрытии формы 2

Вот тут https://www.cyberforum.ru/post86799.html посмотри пример. Там по кнопке выход это реализовано. Но можно, для большей уверенности использовать событие самой формы (закрываемой) FormCloseQuery(Sender: TObject; var CanClose: Boolean);

Сообщение от Sp

А как сделать если надо открыть не 1-у, а 2,3 формы сразу

Тут можно конечно поэкспериментировать с событием FormActivate(Sender).
Например, если форма активна, то с неактивной формы убирать меню и присваивать его активной форме и наоборот... Правда нужно всегда помнить, что у меню может в определенный момент времени быть только один хозяин, сразу на две формы одно и то же меню отобразить нельзя!

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Регина 1 / 1 / 0 Регистрация: 07.04.2008 Сообщений: 44

	TMainMenu для всех Forms 20.12.2008, 15:50. Показов 4718. Ответов 12 Метки нет (Все метки) Подскажите пожалуйста! какое свойство MainMenu нужно выбрать и исправить, чтобы одна и та же MainMenu, появлялась на разных формах. В моем случае, имеется несколько форм связанных между собой. Но MainMenu выходит там, куда я ее поместила, а на других нет. Неужели мне придется на всех форма ставить этот элемент, там ведь столько команд нжно будет повторять, излишняя перегрузка. что делать??? 0

@Cooler2 35 / 30 / 5 Регистрация: 11.06.2008 Сообщений: 56
	20.12.2008, 16:07
	Надо сделать так: В модуле каждой формы в поле implementation пропишите форму, которой находиться компонент с меню следующим образом: uses Unit1 {и т.д}; (альтернативный вариант для всех форм File->UseUnit и укажите форму 1, где расположено компонент с меню.) В свойстве PopupMenu каждой формы выберите Form1.PopupMenu1. Все. 0

@Регина 1 / 1 / 0 Регистрация: 07.04.2008 Сообщений: 44
	20.12.2008, 16:16 [ТС]
	да, модули сделала через use unit, и теперь на форме1( с меню) в коде после implementation, появилась нужная мне форма4. но при указании на форме4 свойства popupmenu ничего не выходит. 0

@Cooler2 35 / 30 / 5 Регистрация: 11.06.2008 Сообщений: 56
	20.12.2008, 16:26
	На форме 4 нужно добавить форму 1 (Uses Форма 1), через File->UseUnit. Потом потом только в свойстве формы 4 PopupMenu указать Форма1.PopupMenu Поробойте, результат отпишите тут. 0

@Регина 1 / 1 / 0 Регистрация: 07.04.2008 Сообщений: 44
	20.12.2008, 16:30 [ТС]
	я так и сделала, теперь снова попробовала на use unit, но там уже не выходит форма1. получается все верно, но в свойстве все равно ничего не выходит. 0

@Регина 1 / 1 / 0 Регистрация: 07.04.2008 Сообщений: 44
	20.12.2008, 17:50 [ТС]
	что-то этот файл не открывается и не скачивается, если не сложно скиньте пожалуйста мне его на krasotulka77777@mail.ru. заранее большое спасибо!!! Добавлено через 52 минуты 39 секунд может я лучше тебе свою прогу скину? 0

@Регина 1 / 1 / 0 Регистрация: 07.04.2008 Сообщений: 44
	24.12.2008, 18:02 [ТС]
	это опять я у меня получилось, но наполовину. видимо этот код для 1-2 форм только работает, а у меня их 4 должно открыться. . Выходит такая вот ошибка: "Menu "MainMenu1 is already being to used by another form"!!!!!!!!! 0

@Sp 5 / 5 / 2 Регистрация: 02.11.2009 Сообщений: 236 Записей в блоге: 1
	09.11.2009, 09:19
	А как меню вернуть на основную форму при закрытии формы 2 0

@Sp 5 / 5 / 2 Регистрация: 02.11.2009 Сообщений: 236 Записей в блоге: 1
	09.11.2009, 14:55
	А как сделать если надо открыть не 1-у, а 2,3 формы сразу 0

Опции темы