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

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

PopupMenu из ресурса. [D7, WinXP]


kalexi ©   (2009-01-12 00:08:00) 

Как загрузить из ресурса меню и сделать popup?

Ресурс:

#define IDM_SHODOWN 100
#define IDM_DELETE 101
#define IDM_QUIT 102

MYMENU MENU
{
MENUITEM "Выключить &компьютр", IDM_SHODOWN
MENUITEM "&Удалить себя из системы", IDM_DELETE
MENUITEM "&Выход", IDM_QUIT
}


МистерТ   (2009-01-12 16:53:00) [1]

               // êëèê ïðàâîé êíîïêîé - ïîêàçàòü ìåíþ
               if (lParam == WM_RBUTTONDOWN)
               {
                   POINT l_pt;
                   GetCursorPos(&l_pt);
                   HMENU l_menu_tray = LoadMenuW(m_hInstance, MAKEINTRESOURCEW(IDR_TRAYMENU));
                   HMENU l_menu = GetSubMenu(l_menu_tray, 0);
                   SetForegroundWindow(m_hMainWindow);
                   TrackPopupMenuEx(l_menu, TPM_HORIZONTAL | TPM_LEFTALIGN, l_pt.x, l_pt.y, m_hMainWindow, NULL);
                   DestroyMenu(l_menu_tray);
                   PostMessageW(m_hMainWindow, WM_USER, 0, 0);
               }


МистерТ   (2009-01-12 16:53:00) [2]

IDR_TRAYMENU MENU
BEGIN
 POPUP L"<none>"
 BEGIN
   MENUITEM L"Показать основное окно",IDM_SHOW
   MENUITEM L"О программе",IDM_ABOUT
   MENUITEM SEPARATOR
   MENUITEM L"Выход",IDM_EXIT
 END
END


Игорь Шевченко   (2009-01-12 00:41:00) [3]

http://msdn.microsoft.com/en-us/library/ms647558(VS.85).aspx


Наверх

Титульная страница Поиск, карта сайта Написать письмо