如何在Delphi VCL项目中创建带自定义Style的透明MainForm

针对你需要实现的PS设计稿风格、带自定义样式的透明异形主窗体，以下是经实际项目验证的可落地方案：

优先方案：分层窗口（Layered Window）实现（设计稿还原度最高） #

这个方案完美适配带半透阴影、羽化边缘、不规则轮廓的自定义界面，和你PS导出的设计稿效果匹配度最高：

• 先设置窗体基础属性
  将主窗体的BorderStyle属性改为bsNone，移除系统自带的标题栏和默认边框；DoubleBuffered设为True，避免后续绘制、拖动时出现闪烁。
• 开启Windows分层窗口特性
  在主窗体的OnCreate事件中添加如下代码，给窗体加上分层窗口的扩展样式：

procedure TMainForm.FormCreate(Sender: TObject);
var
  ExStyle: LONG_PTR;
begin
  ExStyle := GetWindowLongPtr(Handle, GWL_EXSTYLE);
  SetWindowLongPtr(Handle, GWL_EXSTYLE, ExStyle or WS_EX_LAYERED);
end;

• 导入设计素材并绘制
  把你在PS中做好的、带完整Alpha通道的PNG格式窗体背景（包含自定义边框、阴影、异形轮廓、静态装饰元素）导入项目资源文件。调用UpdateLayeredWindowAPI将带Alpha通道的背景图绘制到窗体上，系统会自动按照PNG的透明度值渲染透明效果，半透阴影、圆角边缘都不会出现锯齿。
• 交互适配说明
  纯分层窗口渲染模式下，原生VCL控件默认不会被绘制到窗体上，两种处理方式可选：
  • 若追求和设计稿1:1还原，直接将按钮、输入框等交互元素全部做自绘实现，和背景逻辑整合，适合高度定制化的UI场景
  • 若需要使用标准VCL控件，可改用颜色键透明模式：调用SetLayeredWindowAttributes指定某一纯色为全透明色，缺点是不支持半透效果，边缘容易出现锯齿，不适合你当前带阴影的设计需求

兼容方案：结合VCL Style的透明实现 #

如果你需要保留VCL自带的样式渲染能力，不想全部自绘控件，可以用这个方案：

• 在项目选项中加载你自定义的VCL Style，设为默认启用样式
• 同样先将窗体BorderStyle设为bsNone，按上述代码开启分层窗口特性
• 拦截窗体的WM_ERASEBKGND消息，直接返回1，屏蔽系统默认的背景绘制
• 重写VCL Style的窗体边框绘制逻辑，将样式默认的窗体背景替换为你准备的透明底图，按需求设置透明区域

注意：Delphi 10.4及以上版本对VCL Style+分层窗口的适配才比较稳定，低版本容易出现控件绘制错位、透明区域发黑的问题，使用低版本开发建议直接选第一种方案

常见问题处理 #

• 不要直接使用窗体自带的AlphaBlend属性调整透明度，这个属性会把整个窗体包括所有控件整体做半透，无法实现局部透明、异形透明的效果
• 要实现无标题栏窗体拖动，不需要额外写鼠标坐标判断逻辑，直接拦截WM_NCHITTEST消息即可，拖动更流畅：

procedure TMainForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;
  if Message.Result = HTCLIENT then
    Message.Result := HTCAPTION;
end;

• 如果只需要硬边圆角/异形效果，不需要半透阴影，也可以用CreateRoundRectRgn、CombineRgn等API给窗体设置裁剪区域，性能更好，但边缘没有抗锯齿效果。

内容的提问来源于stack exchange，提问作者Hector Moradi