Создание главного меню средствами WinAPI
Создание главного меню средствами WinAPI
Создание главного меню средствами WinAPI Сегодня мы добавим в наше минимальное приложение главное меню. Но прежде рассмотрим некоторые api функции для работы с ним. createmenu function createmenu: hmenu; В случае успешного выполнения, функция возвращает дескриптор созданного меню, иначе возвращает 0. createpopupmenu function createpopupmenu: hmenu; Как и в случае с createmenu, после успешного выполнения, функция возвращает дескриптор созданного меню, иначе возвращает 0. appendmenu function appendmenu( hmenu: hmenu; uflags, uidnewitem: uint; lpnewitem: pchar ): bool; Функция appendmenu добавляет новый элемент (пункт) к концу указанной строки меню, раскрывающегося меню или подменю. Эту функцию можно использовать, чтобы определить содержание, появление, и поведение пункта меню. hmenu Идентификатор строки меню, раскрывающееся меню или подменю, которое будет изменено. uflags Определяет флажки, управляющие появлением и поведением нового пункта меню. Этот параметр может быть комбинация значений. uidnewitem Определяет или идентификатор нового пункта меню или, если uflags параметр установлен в mf_popup, дескриптор раскрывающегося меню или подменю. lpnewitem Определяет содержание нового пункта меню. insertmenu function appendmenu( hmenu: hmenu; uposition, uflags, uidnewitem: uint; lpnewitem: pchar ): bool; Функция insertmenu вставляет новый пункт в меню, перемещая другие элементы меню вниз. Параметры этой функции те же, что и у appendmenu, за одним исключением. uposition Определяет место, в которое должен быть вставлен новый пункт меню. setmenu function setmenu( hwnd: hwnd; hmenu: hmenu ): bool; Функция setmenu связываем новое меню с окном. hwnd Идентификатор окна, которому должно быть назначено новое меню. hmenu Идентификатор меню, которое должно быть назначено окну. Если этот параметр нулевой, текущее меню окна удаляется. drawmenubar function drawmenubar( hwnd: hwnd ): bool; Функция drawmenubar перерисовывает строку меню указанного окна. hwnd Идентификатор окна, чья строка меню нуждается в изменении. enablemenuitem function enablemenuitem( hmenu: hmenu; uidenableitem, uenable: uint ): bool; Функция enablemenuitem включает/отключает указанный пункт меню. hmenu Идентификатор меню. uidenableitem Определяет пункт меню, состояние которого нужно изменить. uenable Определяет флажки, управляющие состоянием пункта меню. checkmenuitem function checkmenuitem( hmenu: hmenu; uidenableitem, uenable: uint ): bool; Функция checkmenuitem помечает пункт меню или снимает пометку (пометка в виде галочки). hmenu Идентификатор меню. uidcheckitem Определяет пункт меню, чей атрибут пометки должен быть установлен в соответствии со значением параметра ucheck. ucheck Определяет флажки, управляющие состоянием пункта меню. Более полную и подробную информацию смотрите в хэлпе. Делая эту программу, я нашел пару способов создать меню (они не очень сильно отличаются друг от друга, но оба имеют право на существование). На первом способе я остановлюсь поподробнее, а, говоря о втором, просто скажу, чем он отличается от первого. Главное меню программы, это строка, которая располагается в верхней части формы. Она состоит из пунктов, нажатие на любой из них приведет к раскрытию подменю, принадлежащего данному пункту. Это всплывающее меню в windows называется popupmenu. Обратите внимание, понятие popupmenu в delphi и windows различаются. В windows popupmenu - это подменю, принадлежащее другому пункту меню (который отмечается треугольником справа от текста пункта) или одному из пунктов главного меню. В delphi popupmenu - это меню, которое может "всплывать" в любой точке формы. Осознав вышесказанное, приступаем к работе. Откроем шаблон, написанный в прошлый раз, и дополним список констант и переменных const wndclass = ?twinapiwnd?; wndcaption = ?Главное меню формы на win api?; mfile = 100; medit = 200; mcheck = 300; sexit = 101; scopy = 201; scut = 202; spaste = 203; sselect = 301; snextmenu = 302; ssecondlevel = 311; separator = 1; var wc: twndclassex; wnd: hwnd; msg: tmsg; mainmenu: hmenu; submenufile: hmenu; submenuedit: hmenu; submenucheck: hmenu; submenusecondlevel: hmenu; check: boolean = false; Сначала разберемся с константами. Каждый пункт меню должен иметь свой уникальный идентификационный номер. Так как именно по этим номерам мы и будем работать с меню, удобнее всего оформить их как константы. Идея следующая. В главном меню будет 3 пункта: menu, edit и check. Константы для него начинаются с буквы m и имеют номера 100, 200 и 300 соответственно. Каждому из этих пунктов будет сопоставлено свое подменю. Константы для них начинаются с буквы s и номеруются следующим образом: те, которые относятся к первому пункту, начинаются со 100+1, те, которые относятся ко второму пункту, начинаются с 200+1, ну и по аналогии, те, которые относятся к третьему пункту, начинаются с 300+1. В третьем пункте будет подменю второго уровня, константа для него равна 300+10+1. Отдельное значение имеет константа separator, это просто разделитель между пунктами подменю. Переходим к разделу var. Здесь появилось 5 переменных типа hmenu, они содержат hendle соответствующего меню (какого, понятно из их названия). Переменная check показывает, установлен или сброшен пункт меню (читайте дальше, и все поймете). При добавлении нового пункта приходится выполнить ряд действий, в том числе инициализацию структуры menuiteminfo. Так как эти действия нужно производить при добавлении каждого пункта, чтобы избавиться от избыточности кода, оформим эти действия в виде отдельной процедуры. function createmenuitem( hmenu, submenu: hmenu; cap: pchar; _uid, _wid: uint; sep: boolean ): boolean; var mi: menuiteminfo; begin with mi do begin cbsize := sizeof( mi ); fmask := miim_state or miim_type or miim_submenu or miim_id; if not sep then ftype := mft_string else ftype := mft_separator; fstate := mfs_enabled; wid := _wid; hsubmenu := submenu; dwitemdata := 0; dwtypedata := cap; cch := sizeof( cap ); end; result := insertmenuitem( hmenu, _uid, false, mi ); end; Поясню входные параметры функции. hmenu - меню, в которое добавляется новый пункт; submenu - связанное с этим пунктом подменю (если оно есть); cap - заголовок нового пункта; _uid - всегда 0 (этот параметр используется в функции insertmenuitem); _wid - идентификатор, связанный с данным пунктом; sep - признак, является ли новый пункт разделителем или нет. Наше приложение должно реагировать на выбор того или иного пункта меню. Дополним оконную процедуру следующим образом: function windowproc( wnd: hwnd; msg: uint; wparam: wparam; lparam: lparam ): lresult; stdcall; begin case msg of wm_destroy: begin postquitmessage( 0 ); result := 0; exit; end; wm_command: begin case loword( wparam ) of sexit: postmessage( wnd, wm_quit, 0, 0 ); scopy: messagebox( wnd, ?Пункт: copy?, ?Меню: edit?, 0 ); scut: messagebox( wnd, ?Пункт: cut?, ?Меню: edit?, 0 ); spaste: messagebox( wnd, ?Пункт: paste?, ?Меню: edit?, 0 ); sselect: begin if check then checkmenuitem( submenucheck, sselect, mf_unchecked ) else checkmenuitem( submenucheck, sselect, mf_checked ); check := not check; end; ssecondlevel: messagebeep( mb_iconhand ); end; end; else result := defwindowproc( wnd, msg, wparam, lparam ); end; end; При выборе пункта exit (константа sexit) программа будет закрыта. Выбор пунктов copy, cut, paste (константы scopy, scut и spaste соответственно) приведет к появлению сообщения, соответствующего выбранному пункту. Пункт select (константа sselect) работает аналогично tcheckbox, то есть может быть установлен или сброшен. При выборе пункта beep (константа ssecondlevel) мы услышим звуковой сигнал. Теперь для создания меню все готово. Приступаем. begin // Создаем меню mainmenu := createmenu; // Заполняем структуру twndclassex with wc do begin cbsize := sizeof( wc ); style := cs_hredraw or cs_vredraw; lpfnwndproc := @windowproc; cbclsextra := 0; cbwndextra := 0; hinstance := hinstance; hicon := loadicon( 0, idi_application ); hcursor := loadcursor( 0, idc_arrow ); hbrbackground := color_window; lpszmenuname := @mainmenu; lpszclassname := wndclass; end; // Регистрируем класс в системе registerclassex( wc ); // Создаем подменю submenufile := createpopupmenu; submenuedit := createpopupmenu; submenucheck := createpopupmenu; submenusecondlevel := createpopupmenu; // Создаем окно wnd := createwindowex( 0, wndclass, wndcaption, ws_overlappedwindow, 10, 10, 300, 100, 0, mainmenu, hinstance, nil ); // Создаем пункты главного меню createmenuitem( mainmenu, submenufile, ?file?, 0, mfile, false ); createmenuitem( mainmenu, submenuedit, ?edit?, 0, mfile, false ); createmenuitem( mainmenu, submenucheck, ?check?, 0, mfile, false ); // Подменю для пункта file createmenuitem( submenufile, 0, ?exit?, 0, sexit, false ); // Подменю для пункта edit createmenuitem( submenuedit, 0, ?copy?, 0, scopy, false ); createmenuitem( submenuedit, 0, ?cut?, 0, scut, false ); createmenuitem( submenuedit, 0, ??, 0, separator, true ); createmenuitem( submenuedit, 0, ?paste?, 0, spaste, false ); // Подменю для пункта check->nextmenu createmenuitem( submenusecondlevel, 0, ?beep?, 0, ssecondlevel, false ); // Подменю для пункта check createmenuitem( submenucheck, 0, ?select?, 0, sselect, false ); createmenuitem( submenucheck, submenusecondlevel, ?nextmenu?, 0, snextmenu, false ); // Перерисовываем меню drawmenubar( wnd ); // Показываем окно showwindow( wnd, sw_shownormal ); // Цикл обработки сообщений while getmessage( msg, 0, 0, 0 ) do begin translatemessage( msg ); dispatchmessage( msg ); end; halt( msg.wparam ); end. Разбираемся. Первым делом создаем главное меню. Указатель на него присваиваем полю lpszmenuname структуры wc (раньше оно было равно nil). После регистрации класса в системе создаем подменю. При создании окна, параметр hmenu функции createwindowex равен mainmenu (handle созданного меню, а не 0, как было в шаблоне). После создания всех пунктов, перерисовываем меню при помощи функции drawmenubar. Теперь второй способ создания меню. Здесь я приведу его в сокращении, и поясню произведенные изменения (полный текст программы имеется в архиве с примерами в конце статьи). begin // Заполняем структуру twndclassex with wc do begin ... lpszmenuname := nil; ... end; ... // Создаем меню mainmenu := createmenu; ... wnd := createwindowex( 0, wndclass, wndcaption, ws_overlappedwindow, 10, 10, 300, 100, 0, 0, hinstance, nil ); ... // Устонавливаем меню setmenu( wnd, mainmenu ); ... end. Поле lpszmenuname структуры wc остается равным nil. Главное меню создаем после регистрации класса в системе. При создании окна, параметр hmenu функции createwindowex можно оставить равным 0, т.к. здесь мы не перерисовываем меню, а назначаем его форме, используя функцию setmenu. Все. Теперь у нашей формы есть меню. Это оказалось совсем не сложно. До новых встреч, удачи в программировании. Источник: http://decoding.narod.ru/api/menu/menu.html
