Вниз
Скачать: CL | DM;

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

← →
Василий Иванов_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]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c
15-1263112641
Nic
2010-01-10 11:37
2010.03.28
Соединение из Delphi MSSQL Server через RDP. Как?


15-1262554228
Юрий
2010-01-04 00:30
2010.03.28
С днем рождения ! 4 января 2010 понедельник


2-1264710471
Делфиец
2010-01-28 23:27
2010.03.28
Как заблокировать новигацию в таблице?


3-1237159280
VoznikVopros
2009-03-16 02:21
2010.03.28
Как поместить формы, которые взаимодействуют с БД, в DLL?


15-1262645563
Германн
2010-01-05 01:52
2010.03.28
Работа с Project Group




   Наверх