Форум: "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.73 MB
Время: 0.031 c
1-22141           N                     2001-12-20 10:04  2002.01.08  
C -> Pascal: указатель на функцию внутри структуры


1-22154           Марина                2001-12-20 15:42  2002.01.08  
Удаление содержимого каталога


3-21941           jin                   2001-11-30 14:56  2002.01.08  
Помогите пожалуйста создать процедуру IB SQL из приложения


1-22136           Dorixe                2001-12-20 09:40  2002.01.08  
Proekt


6-22276           Lamok                 2001-10-05 23:13  2002.01.08  
Отправка данных в интернет