меню в ресурсе

← →
Василий Иванов_22 (2009-07-01 10:21) [0]

Здраствуйте.
Скажите как изменить заголовок popupmenu в menu.
Например: код меню в ресурсе:
MMENU MENU DISCARDABLE
BEGIN
POPUP "&Файл"
BEGIN
MENUITEM "", ID_MENUITEM40004
MENUITEM "", ID_MENUITEM40003
MENUITEM SEPARATOR
MENUITEM "&Сохранить\tCtrl+S", ID_MENUITEM40008
MENUITEM "&Сохранить как ...", ID_MENUITEM40009
MENUITEM "&Сохранить все", ID_MENUITEM40010
MENUITEM SEPARATOR
MENUITEM "&Закрыть", ID_MENUITEM40011
MENUITEM "&Закрыть все", ID_MENUITEM40012
MENUITEM SEPARATOR
MENUITEM "&Настройка печати", ID_MENUITEM40013
MENUITEM "&Печать\tCtrl+P", ID_MENUITEM40014
MENUITEM SEPARATOR
MENUITEM "&Используемые проекты", ID_MENUITEM40015
MENUITEM "&Используемые файлы", ID_MENUITEM40016
MENUITEM SEPARATOR
MENUITEM "&Выход\tAlt+X", ID_MENUITEM40017
END
MENUITEM "&Правка", 65535
MENUITEM "&Проект", 65535
MENUITEM "&Инструменты", 65535
MENUITEM "&Окно", 65535
POPUP "&Помощь"
BEGIN
MENUITEM "&Справка", ID_MENUITEM40005
MENUITEM "&О программе", ID_MENUITEM40006
END
END

Заголовки MenuItem можно поменять функцией
ModifyMenu(MainMenu,ID_MENUITEM40004, MF_STRING,ID_MENUITEM40004,BUFFER);
Как поменять заголовок POPUP "&Файл"?
Спасибо.

← →
Игорь Шевченко © (2009-07-01 10:52) [1]

Предположительно так:

var
hSub: HMENU;

hSub := GetSubMenu(MainMenu, 0);

ModifyMenu(MainMenu, 0, MF_BYPOSITION or MF_POPUP, hSub, PChar("Foo"))

(не проверял)

← →
Василий Иванов_22 (2009-07-01 13:55) [2]

Да, вы очень помогли.
Большое спасибо.
Тема закрыта.

меню в ресурсе Найти похожие ветки