var hM,hPM1,hPM2:HMENU;
<skip>
hM:=CreateMenu;
hPM1:=CreatePopupMenu;
hPM2:=CreatePopupMenu;
AppendMenu(hPM2,MF_STRING,1,pchar('test2'));
AppendMenu(hPM1,MF_POPUP,hPM2,pchar('test1'));
AppendMenu(hM,MF_POPUP,hPM1,pchar('test'));
SetMenu(MainForm.Handle,hM);
Главное меню
Привет. Подскажите как на API создать главное меню у окна. Читал справку но так и не смог разобраться как создать подменю. Заранее спасибо.
приведу пример на дельфи:
собственно на основе этого кода можно и разобраться что к чему.
Код:
собственно на основе этого кода можно и разобраться что к чему.
Огромное спасибо, все получилось. И еще небольшой вопросик: Какое сообщение приходит окну когда пользователь выбирает один из пунктов меню, как узнать какое подменю он выбрал? Надеюсь я правильно сформулировал вопрос.
Цитата: disabledx
Огромное спасибо, все получилось. И еще небольшой вопросик: Какое сообщение приходит окну когда пользователь выбирает один из пунктов меню, как узнать какое подменю он выбрал? Надеюсь я правильно сформулировал вопрос.
Обрабатывать сообщение WM_COMMAND
как узнать какое подменю он выбрал?
А почитать в хелпе о параметрах WM_COMMAND религия не позволяет?
Религия не позволяет :) . Всем огромное спасибо у меня все получилось. А в хелпе прочитать не мог так как у меня Виста и Дельфи 6, там чёт справка не работает.