День просидел над этим вопросом, но ничего путного не получилось
Примеры, как назло под MFC заточены.
Если делать так:
WM_INITDIALOG:begin
CBar := CommandBar_Create( hInstance, wnd, 0) ;
CommandBar_InsertMenubarEx(CBar,hInstance,IDR_MENU,0) ;
end;
то в принципе менюшка получаеться, но только вверху диалога и не на всех версиях WinCe пашет
Пробую сделать так:
function CreateMenuBar(wnd:HWND):HWND;
var
mbi:SHMENUBARINFO;
begin
fillChar(mbi,sizeof(mbi),0);
mbi.cbSize := sizeof(mbi); // Size field
mbi.hwndParent := wnd; // Parent window
mbi.dwFlags := 0; // Flag ?(SHCMBF_EMPTYBAR,SHCMBF_HIDDEN,SHCMBF_HIDESIPBUTTON)
mbi.nToolBarId := IDR_MENU;//idToolbar; // ID of toolbar resource
mbi.hInstRes := hInstance; // Inst handle of app
mbi.nBmpId := 0;//idBitMapToolbar; // ID of bitmap resource
mbi.cBmpImages := 0;//iImages; // Num of images in bitmap
if not SHCreateMenuBar(@mbi) then
MessageBox(wnd,PWideChar('Error'),0,MB_OK);
result:= mbi.hwndMB; //handle of Menu
end;
....
WM_CREATE:СBar:=CreateMenuBar(wnd);
Ошибка не выскакиет но и Меню тоже не появляется
Ресурс менюшки выглядит так
#define IDR_MENU 10000
#define IDM_start 10002
#define IDM_Exit 10001
IDR_MENU MENU
BEGIN
POPUP "File"
BEGIN
MENUITEM "Open", IDM_start
MENUITEM SEPARATOR
MENUITEM "Exit", IDM_Exit
END
END
PS: Может по WindowsCE отдельный раздел открыть
