### Скрытие или Перемещение Элементов Системного Меню в Delphi ###

Delphi , Синтаксис , Справочник по API-функциям

Скрытие или Перемещение Элементов Системного Меню в Delphi

При разработке приложений на Delphi, разработчики часто сталкиваются с необходимостью управления элементами системного меню, которое находится в левом верхнем углу панели заголовка окна. Системное меню включает в себя стандартные команды, такие как восстановить, минимизировать, максимизировать, изменение размера и закрытие. Вопрос, который часто возникает, заключается в том, как можно скрыть или переместить эти элементы меню, не теряя при этом их функциональности.

Описание проблемы

Возможность добавлять собственные элементы меню в системное меню есть, но удаление стандартных элементов приводит к потере их функциональности. Например, после удаления команды минимизации кнопка минимизации перестаёт работать. Существует ли способ сделать эти элементы невидимыми, переместить их в подменю или удалить, но при этом получать сообщения от кнопок?

Подходы к решению

a) Сделать элементы невидимыми

API не предусматривает концепцию невидимого или скрытого элемента меню. Однако, можно использовать функцию EnableMenuItem для отключения элементов, что делает их серыми и неактивными, но не скрывает их полностью.

b) Переместить в подменю

Перемещение элементов в подменю возможно, но для этого необходимо сначала удалить их из основного меню, а затем добавить в подменю. Ниже приведён пример кода на Object Pascal, который перемещает команду "минимизировать" в подменю:

var
  SysMenu, SubMenu: HMENU;
  StrMin: string;
  StrMinLen: Integer;
begin
  SysMenu := GetSystemMenu(Handle, False);
  StrMinLen := GetMenuString(SysMenu, SC_MINIMIZE, nil, 0, MF_BYCOMMAND);
  if StrMinLen > 0 then begin
    Inc(StrMinLen);
    SetLength(StrMin, StrMinLen);
    GetMenuString(SysMenu, SC_MINIMIZE, PChar(StrMin), StrMinLen, MF_BYCOMMAND);
    SubMenu := CreateMenu;
    if SubMenu <> 0 then begin
      DeleteMenu(SysMenu, SC_MINIMIZE, MF_BYCOMMAND);
      AppendMenu(SubMenu, MF_STRING, SC_MINIMIZE, PChar(StrMin));
      InsertMenu(SysMenu, 0, MF_BYPOSITION or MF_POPUP, SubMenu, 'Minimize->');
      InsertMenu(SysMenu, 1, MF_BYPOSITION or MF_SEPARATOR, 0, nil);
    end;
  end;
end;

Не забудьте уничтожить подменю, когда оно больше не требуется:

var
  Info: TMenuItemInfo;
begin
  Info.cbSize := SizeOf(Info);
  Info.fMask := MIIM_SUBMENU;
  if GetMenuItemInfo(GetSystemMenu(Handle, False), 0, True, Info) then
    DestroyMenu(Info.hSubMenu);
  GetSystemMenu(Handle, True);

c) Удаление элементов с сохранением функциональности

Удаление элементов меню приводит к потере их функциональности, и система не будет отправлять сообщения WM_SYSCOMMAND для соответствующих команд. Однако, можно перехватить сообщения, например, о нажатии кнопок мыши, но это не будет соответствовать обычному клику по кнопке.

Заключение

API Windows не предусматривает прямых способов для скрытия элементов системного меню, но можно использовать подходы, такие как отключение элементов, их перемещение в подменю или перехват сообщений, чтобы достичь желаемого поведения. При работе с системным меню важно учитывать, что некоторые действия могут потребовать дополнительной логики для восстановления функциональности стандартных команд.

Создано по материалам из источника по ссылке.

Вопрос связан с возможностями управления элементами системного меню в приложениях, разработанных с использованием среды Delphi, включая их скрытие или перемещение с сохранением функциональности.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::