Delphi 12.1无标题MDI子窗体边框绘制异常问题求助

针对你遇到的无标题MDI子窗体问题，以下是具体的解决方法：

问题1a：顶部边框残留标题文本 #

仅移除ws_Caption样式不足以完全清除标题文本残留，Windows会保留窗口类关联的标题信息。需要在CreateParams中额外清除窗口类名称，并确保窗体自身标题为空：

procedure TMDIChildForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and not ws_Caption;
  Params.WindowClass.lpszName := ''; // 清除窗口类绑定的标题文本
  Self.Caption := ''; // 确保窗体标题为空
end;

问题1b：设置BorderIcons后边框出现可点击像素点 #

当你设置BorderIcons为[systemmenu,maximize]时，Windows会为这些控件保留极小的交互区域，即使标题栏已隐藏。正确的做法是放弃使用BorderIcons，手动实现所需功能：

1. 移除ws_SysMenu样式，避免系统自动保留交互区域：

procedure TMDIChildForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and not (ws_Caption or ws_SysMenu);
  // 若需要保留边框，保留ws_Border；否则可一并移除
end;

2. 手动实现系统菜单：通过右键菜单模拟系统菜单的功能（如关闭、最大化、还原），在窗体的OnMouseDown事件中判断右键点击触发菜单。
3. 手动实现最大化/还原：通过自定义按钮或双击窗体事件，直接切换WindowState属性。

问题2：缩放/还原后边框像素残留 #

这是MDI子窗体重绘时的区域更新不完整导致的，可通过强制重绘和启用双缓冲解决：

方法1：处理WM_SIZE消息强制重绘 #

procedure TMDIChildForm.WMSize(var Message: TWMSize);
begin
  inherited;
  if Message.SizeType <> SIZE_MINIMIZED then
  begin
    Invalidate; // 标记整个窗体需要重绘
    UpdateWindow(Self.Handle); // 立即执行重绘操作
  end;
end;

方法2：启用双缓冲减少残留 #

在CreateParams中添加WS_EX_COMPOSITED扩展样式，让Windows使用双缓冲绘制窗体，避免闪烁和像素残留：

procedure TMDIChildForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style and not ws_Caption;
  Params.ExStyle := Params.ExStyle or WS_EX_COMPOSITED;
end;

内容的提问来源于stack exchange，提问作者Shekar Arumugam