popup menu не на delphi, а на API

← →
с - - + + - (2002-12-15 11:56) [0]

Здрасте всем!

Да скажете, прищёл тут ещё один и говорит: давайте падавайте мне мне меню, да ешё и на API!!

А хо-хо не хо-хо ответят многие.

Ну всё равно осмелюсь просить у вас пример popup menu (причём сложного т.е у нас есть popup menu , а в popup menu есть подменю, а в подменю есть ещё одно ..... хотябы 2-3 вложенности.

Заранее благодарен за примеры или за ссылки.

← →
Слесарь Матерящийся (2002-12-15 12:38) [1]

Win32 Programmer"s Reference, статья "Menu Functions"

← →
asmith (2002-12-15 16:05) [2]

var
menu : HMENU;
menu := CreatePopupMenu();
const
IDM_START = 20;
IDM_EXIT = 21;
IDM_ABOUT = 22;
IDM_STOP = 23;
...
AppendMenu(menu, MF_STRING, IDM_START, "Start");
AppendMenu(menu, MF_STRING, IDM_STOP, "Stop");
AppendMenu(menu, MF_SEPARATOR, 0, nil);
AppendMenu(menu, MF_STRING, IDM_EXIT, "Exit");
AppendMenu(menu, MF_STRING, IDM_ABOUT, "About");

popup menu не на delphi, а на API Найти похожие ветки