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).
Например, если форма активна, то с неактивной формы убирать меню и присваивать его активной форме и наоборот... Правда нужно всегда помнить, что у меню может в определенный момент времени быть только один хозяин, сразу на две формы одно и то же меню отобразить нельзя!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

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

	TMainMenu для всех Forms 20.12.2008, 15:50. Показов 4678. Ответов 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