GetMenuItemInfo -> falscher Parameter

[turboPASCAL]

Gratulation.

Irgendwie muss es doch funktionieren aus einem Einterag im Menue ein Submenue zu machen. *haarerauf*

[Luckie]

Keine Ahnung, aber mit dem Dummy-Eintrag geht es.

[turboPASCAL]

Man(n) ersetze:

Delphi-Quellcode:

//...

   WM_COMMAND:
      begin
        case wParam of
          102:
            begin
              _hMenu := GetMenu(hwnd);
              _hSubMenu := GetSubMenu(_hMenu, 1);
              _hSubSubMenu := GetSubMenu(_hSubMenu, 0);

              if _hSubSubMenu = 0 then
              begin
                ZeroMemory(@mii, sizeof(TMENUITEMINFO));
                mii.cbSize  := sizeof(TMENUITEMINFO);
                mii.fMask   := MIIM_TYPE or MIIM_SUBMENU;
                mii.fType   := MFT_STRING;
                mii.fState  := MFS_ENABLED;
                mii.wID     := 0;
                mii.hSubMenu := _hSubMenu;
                mii.dwTypeData := 'Language';
                SetMenuItemInfo(_hSubMenu, 0, FALSE, mii);

                _hSubSubMenu := GetSubMenu(_hSubMenu, 0);
              end;

              AppendMenu(_hSubSubMenu, MF_STRING, 0815, 'Test &1');
              AppendMenu(_hSubSubMenu, MF_STRING, 0816, 'Test &2');
              DrawMenuBar(hwnd);
            end;
          0815: Beep(880,50);
          0816: Beep(440,50);
          // ...

Ich hoffe mal das man sich durchwuseln kann

// Demo 2 hinzugefügt (siehe oben)