| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Василий Иванов_22 ©   (2009-07-01 10:21:00) 

Здраствуйте.
Скажите как изменить заголовок 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 "&Файл"?
Спасибо.

---

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

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

---

Игорь Шевченко   (2009-07-01 10:52:00) [2]

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

var
 hSub: HMENU;

hSub := GetSubMenu(MainMenu, 0);

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

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

---

Наверх