Как убрать заголовок в дочерней форме MDI 2

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

type
  TForm2 = class(TForm)
    { другой код выше }
    procedure CreateParams(var Params: TCreateParams); override;
    { другой код ниже }
  end;

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style and not WS_OVERLAPPEDWINDOW or WS_BORDER
end;

Проблема с удалением панели заголовка в дочернем форме MDI-приложения - это вечная борьба!

В этом случае вы используете Delphi и метод CreateParams, где можно настроить стиль окна для удаления панели заголовка.

Вот, что ваш код делает:

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params); // Вызываем реализацию родителя
  Params.Style := Params.Style and not WS_OVERLAPPEDWINDOW or WS_BORDER; // Модифицируем стиль
end;

Флаг WS_OVERLAPPEDWINDOW отвечает за отображение панели заголовка в Windows. Удалив этот флаг (and not) и оставив только флаг WS_BORDER (который удаляетonly border, а не панель заголовка), вы эффективно убираете панель заголовка.

Однако, есть ловушка! Когда вы открываете ваш дочерний форм, он все еще будет иметь тонкую рамку вокруг него, что может не быть тем, что вы хотите. Для удаления этой рамки можно использовать метод WindowProc и обрабатывать сообщение WM_NCCREATE, чтобы изменить стиль окна соответственно.

Вот обновленная реализация:

procedure TForm2.WindowProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_NCCREATE: // Удаляем панель заголовка и рамку
      begin
        SetWindowLong(Handle, GWL_STYLE, WS_POPUPWINDOW);
        SetWindowPos(Handle, 0, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOZORDER);
      end;
    else inherited; // Передаем сообщение реализации родителя
  end;
end;

В этом коде мы используем функцию SetWindowLong для изменения стиля окна от WS_OVERLAPPEDWINDOW (с панелью заголовка и рамкой) до WS_POPUPWINDOW (без панели заголовка или рамки). Затем мы используем функцию SetWindowPos для установки позиции окна в 0,0, что эффективно удаляет любые видимые эффекты рамки.

Сочетая эти два подхода, вы должны быть able to remove both the title bar and the border in your child form.

В статье описывается способ удаления заголовка в дочерней форме MDI 2, используя метод CreateParams и изменение стиля окна.

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

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