Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Как на АПИ создать всплывающее меню (popup) 


Yaroslav   (2001-10-31 13:17) [0]

Подскажите, желательно примером, как на АПИ создать всплывающее меню (popup) а то в хэлпе все так туго написано - куча параметров, которые надо задавать интуитивно-непонятным способом =)
Заранее спасибо



absent   (2001-11-01 06:14) [1]

Насчет параметров там по-моему все прозрачно:
можно так

var
hMenu: hWnd;
...
hMenu:= CreatePopupMenu;
AppendMenu(hMenu, MF_STRING, 101, "Пункт меню 1");
AppendMenu(hMenu, MF_STRING, 102, "Пункт меню 2");
// 101 и 102 - идентификаторы пунктов, которые ловят в WindowProc с
// сообщением WM_COMMAND.
Показ меню примерно так:
TrackPopupMenu(hMenu, TPM_LEFTALIGN,
LoWord(GetMessagePos), HiWord(GetMessagePos),
0, hMainWnd, nil);
// hMainWnd - хэндл основного окна
// только не забыть во время закрытия программы сделать
if hMenu <> 0 then DestroyMenu(hMenu);

Лучше конечно эти менюшки запихать в ресурсы...



absent   (2001-11-01 06:19) [2]

Да, вместо hMenu лучше поставить другое имя :)



Evgeny   (2001-11-01 06:59) [3]

Можно менюшку заранее описать в RC файле (если она конечно не динамическая) и вызывать как указано выше.

1000 MENU
BEGIN
POPUP ""
BEGIN
MENUITEM "&New\tF2", ID_NEW
MENUITEM SEPARATOR
MENUITEM "&Hi score...\tF4", ID_HI
MENUITEM "BackGround...\tF9", ID_BACK, GRAYED | INACTIVE
MENUITEM "&Pause\tPause", ID_PAUSE
MENUITEM "&About..\tF1", ID_ABOUT
MENUITEM SEPARATOR
MENUITEM "&Exit", ID_EXIT
END
END




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.74 MB
Время: 0.031 c
1-22254           alina                 2001-12-17 13:32  2002.01.08  
Архивация данных


4-22457           Zabl                  2001-11-01 13:15  2002.01.08  
Проблемма с Dll


6-22284           Delirium              2001-10-08 16:29  2002.01.08  
Как послать сообщение сразу на все IP-адреса


4-22486           Pantero               2001-11-03 23:59  2002.01.08  
Handle


14-22345          petr_v_a              2001-11-05 20:13  2002.01.08  
В защиту Ланы Розановой &Co!!!