Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.08;
Скачать: CL | DM;

Вниз

Как на АПИ создать всплывающее меню (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



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

Текущий архив: 2002.01.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.018 c
1-22044
Eduard
2001-12-10 10:09
2002.01.08
Frame


3-21961
shakh
2001-12-03 20:29
2002.01.08
могут ли быть в SQL пустые значения параметров запроса


1-22184
Alligator
2001-12-21 09:44
2002.01.08
может кто знает?


14-22384
Alien
2001-11-07 08:13
2002.01.08
Поклонникам TV-6 и шоу


1-22093
Bristol
2001-12-19 11:59
2002.01.08
отправка писем с помощью Дельфи 5