type
TForm2 = class(TForm)
{ другой код выше }procedure CreateParams(var Params: TCreateParams); override;
{ другой код ниже }end;
procedure TForm2.CreateParams(var Params: TCreateParams);
begininherited CreateParams(Params);
Params.Style := Params.Style andnot 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 и изменение стиля окна.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.