Скрытие кнопок управления дочерними формами в Delphi: как создать интерфейс, похожий на браузер

Delphi , Программа и Интерфейс , MDI приложения

Вопрос разработчика, связанный с использованием технологии MDI (Multiple Document Interface) в среде разработки Delphi, заключается в желании убрать или отключить кнопки управления дочерними формами, отвечающие за минимизацию и восстановление окна. Задача состоит в том, чтобы придать приложению вид "браузера", при котором все дочерние формы MDI должны быть постоянно максимализированы.

Проблема

Разработчик уже пытался отключить эти кнопки, установив свойство BoderIcons в значение [biSystemMenu], но в результате этого не удалось достичь желаемого результата. Также была предпринята попытка отключения команд меню в сообщении WM_INITMENU, однако и этот подход не привел к успеху.

Решение

В подтвержденном ответе разработчик решает проблему, перехватывая сообщение WM_COMMAND в основном окне формы. Пример кода на Object Pascal (Delphi) показывает, как можно обработать системные команды, связанные с закрытием, минимизацией, восстановлением и максимализацией окна:

type
  TMDIMainForm = class(TForm)
  protected
    procedure WMCommand(var Message: TWMCommand); message WM_COMMAND;
  end;

implementation

procedure TMDIMainForm.WMCommand(var Message: TWMCommand);
begin
  case Message.ItemID of
    SC_CLOSE, SC_MINIMIZE, SC_RESTORE, SC_MAXIMIZE:
      begin
        Message.Result := 0;
        Exit;
      end;
    else
      inherited;
  end;
end;

Для дочерних форм в методе OnCreate устанавливается свойство WindowState в значение wsMaximized, что обеспечивает их постоянное состояние максимализации:

procedure TMDIChild.OnCreate(Sender: TObject);
begin
  WindowState := wsMaximized;
end;

Теперь дочерние формы MDI остаются максимализированными, и пользователь не может их восстановить или минимизировать.

Альтернативные подходы

В альтернативных ответах обсуждаются различные подходы к решению задачи. Один из них заключается в использовании фреймов (TFrame) и TPageControl для организации интерфейса, что может быть полезно для приложений, не требующих функционала MDI. Также предлагается использовать обычные формы с вкладками или контролем страниц, если нет необходимости использовать именно MDI.

Заключение

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

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

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

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

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

:: Главная :: MDI приложения ::