如何禁用移动系统菜单项？

Question

在Microsoft Windows中,这适用于:

 mnu := GetSystemMenu(h, false);
 EnableMenuItem(mnu, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);

但这不起作用:

 mnu := GetSystemMenu(h, false);
 EnableMenuItem(mnu, SC_MOVE, MF_BYCOMMAND or MF_GRAYED);

因此我知道如何禁用窗口的"关闭"系统菜单项,而不是"移动"项.我怎么做？

更新

当然,使用非常好的函数EnableMenuItem的一种替代方法是使用SetMenuItemInfo:

  FillChar(info, sizeOf(info), 0);
  with info do
  begin
    cbSize := sizeOf(info);
    fMask := MIIM_STATE;
    fState := MFS_GRAYED;
  end;
  SetMenuItemInfo(mnu, SC_MOVE, false, info);

但这对SC_CLOSE再次起作用,但SC_MOVE完全没有!

更新2

即使问题已经解决,因为工作代码已经找到"完成工作",可以这么说,听到关于问题原因的假设会很有趣:为什么SC_CLOSE工作但不是SC_MOVE？

Answer 1

这有点神秘，但如果您使用 ModifyMenu 或 DeleteMenu 就可以了：

   HMENU mnu = GetSystemMenu(hWnd, false);
   DeleteMenu(mnu, SC_MOVE, MF_BYCOMMAND);

或者：

   HMENU mnu = GetSystemMenu(hWnd, false);
   MENUITEMINFO info = { sizeof(MENUITEMINFO) };
   TCHAR name[256] = _T("Cannot move");
   info.fMask = MIIM_TYPE;
   info.dwTypeData = name;
   info.cch = sizeof(name) / sizeof(TCHAR);
   GetMenuItemInfo(mnu, SC_MOVE, false, &info);
   ModifyMenu(mnu, SC_MOVE, MF_BYCOMMAND | MF_GRAYED, 0, info.dwTypeData);