Delphi中TForm.AlphaBlend与AlphaBlendValue无效问题求助

在Delphi 12.2 Enterprise项目中，基础许可证用户无法访问高级功能。我做了一个带“禁止进入”标识和两个TLabel的表单，设置AlphaBlendValue = 100做成半透明遮罩放在受限区域上方，想让用户能看到下方内容，但实际AlphaBlendValue完全无效，表单显示为完全不透明。

我在多个测试项目中复现该问题均未成功，所有测试项目都能正常工作，但主项目涉密无法上传，试过各种调整都没解决。环境是Windows 11 Professional。

遮罩表单单元代码 #

unit NoEntryForm;

interface

uses
  System.SysUtils, Vcl.Controls, Vcl.Forms, SVGIconImage, Vcl.ExtCtrls, System.Classes, Vcl.StdCtrls;

type

  INoEntryForm = interface
    ['{085FB8DC-3E21-4A50-B4CC-006E9872BF62}']
    procedure ShowMe;
  end;


  /// <summary>
  /// A "no entry" panel to be displayed when a user attempts to access a feature to which their application licence does not permit access.
  /// It is intended to encourage the user to upgrade by showing them a glimpse of what they are missing.
  /// </summary>
  TfrmNoEntry = class(TForm, INoEntryForm)
    imgNoEntry: TSVGIconImage;
    pnlTop: TPanel;
    lblNoEntry: TLabel;
    lblPleaseUpgrade: TLabel;
    procedure ShowMe;
  public
    { Public declarations }
  end;

procedure ShowNoEntry(const strMessage: string; const ctlParent: TWinControl; const strCaption: string);

implementation

{$R *.dfm}

/// <summary>
/// Displays a "No Entry" form over the given control (ctlParent)
/// </summary>
/// <param name="strMessage">Message to the user (typically something about having to upgrade to access the inaccessible feature)</param>
/// <param name="ctlParent">The TWinControl descendant on which the No Entry form should be displayed (eg a TPanel for example)</param>
/// <param name="strCaption">The No Entry form's caption (typically "No Entry")</param>
procedure ShowNoEntry(const strMessage: string; const ctlParent: TWinControl; const strCaption: string);
begin
  for var i := 0 to ctlParent.ControlCount - 1 do begin
    if ctlParent.Controls[i] is TfrmNoEntry then
      exit;   // ctlParent already has a TfrmNoEntry so we can stop here
  end;

  var frmNoEntry := TfrmNoEntry.Create(nil);
  var FormInterface: INoEntryForm := frmNoEntry;

  frmNoEntry.Parent := ctlParent;
  frmNoEntry.TransparentColor := false;
  frmNoEntry.AlphaBlend := True;
  frmNoEntry.AlphaBlendValue := 100;
  frmNoEntry.Align := alNone;
  frmNoEntry.BoundsRect := ctlParent.BoundsRect;
  frmNoEntry.Anchors := [akLeft,akTop,akRight,akBottom];
  frmNoEntry.lblNoEntry.Caption := strCaption;
  frmNoEntry.lblPleaseUpgrade.Caption := strMessage;
  frmNoEntry.ShowMe;
end;

procedure TfrmNoEntry.ShowMe;
begin
  Show;
end;

end.

调用代码 #

ShowNoEntry('Text explaining why access is denied', Panel1, 'No Entry!');

可能的排查方向 #

• 检查主项目窗口的FormStyle：如果主窗口是fsMDIForm或子窗口是fsMDIChild，MDI环境下子表单的AlphaBlend可能被系统忽略，尝试把遮罩表单的FormStyle改为fsNormal（如果业务允许）。
• 检查父控件的绘制逻辑：父控件或上层容器如果有自定义双缓冲、重写Paint方法等特殊处理，可能覆盖遮罩表单的透明度效果，临时替换父控件为普通TPanel测试。
• 关闭VCL主题：在项目选项中关闭VCL Themes，部分主题渲染逻辑可能干扰AlphaBlend生效。
• 修改表单BorderStyle：把遮罩表单的BorderStyle设为bsNone，窗口边框的存在可能导致透明度失效。

替代实现方案 #

如果Form的AlphaBlend始终无法生效，改用TPanel作为遮罩更稳定，避免Form窗口层级带来的问题：

procedure ShowNoEntryPanel(const strMessage: string; const ctlParent: TWinControl; const strCaption: string);
var
  pnlMask: TPanel;
  imgNoEntry: TSVGIconImage;
  lblNoEntry, lblPleaseUpgrade: TLabel;
begin
  // 检查是否已存在遮罩（用Tag标记）
  for var i := 0 to ctlParent.ControlCount - 1 do
    if ctlParent.Controls[i].Tag = 9999 then
      Exit;

  pnlMask := TPanel.Create(ctlParent);
  pnlMask.Parent := ctlParent;
  pnlMask.Align := alClient;
  pnlMask.AlphaBlend := True;
  pnlMask.AlphaBlendValue := 100;
  pnlMask.Color := clWhite;
  pnlMask.Tag := 9999; // 标记遮罩控件，方便后续识别清理

  // 添加禁止进入图标
  imgNoEntry := TSVGIconImage.Create(pnlMask);
  imgNoEntry.Parent := pnlMask;
  imgNoEntry.Align := alCenter;
  // 加载SVG资源或文件，示例：imgNoEntry.LoadFromResourceName(HInstance, 'NOENTRY_SVG');

  // 添加标题标签
  lblNoEntry := TLabel.Create(pnlMask);
  lblNoEntry.Parent := pnlMask;
  lblNoEntry.Caption := strCaption;
  lblNoEntry.Font.Size := 16;
  lblNoEntry.Font.Style := [fsBold];
  lblNoEntry.Align := alTop;
  lblNoEntry.Alignment := taCenter;
  lblNoEntry.Margins.Top := 20;

  // 添加升级提示标签
  lblPleaseUpgrade := TLabel.Create(pnlMask);
  lblPleaseUpgrade.Parent := pnlMask;
  lblPleaseUpgrade.Caption := strMessage;
  lblPleaseUpgrade.Font.Size := 12;
  lblPleaseUpgrade.Align := alBottom;
  lblPleaseUpgrade.Alignment := taCenter;
  lblPleaseUpgrade.Margins.Bottom := 20;
end;

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