如何在Windows 11中禁用Delphi VCL特定对话框的"放大展开"行为？

针对你遇到的场景，可通过以下几种方式实现仅在SpeedButton触发时禁用对话框的放大展开动画：

方法1：添加WS_EX_NOANIMATION扩展样式 #

Windows 10及以上系统支持WS_EX_NOANIMATION扩展窗口样式，可直接禁用窗口的系统动画。在显示对话框前修改其窗口样式即可：

procedure TMainForm.SpeedButton1Click(Sender: TObject);
var
  dlg: TMyDialog;
  ScreenPos: TPoint;
begin
  dlg := TMyDialog.Create(nil);
  try
    // 计算下拉位置：按钮底部的屏幕坐标
    ScreenPos := SpeedButton1.ClientToScreen(Point(0, SpeedButton1.Height));
    dlg.SetBounds(ScreenPos.X, ScreenPos.Y, dlg.Width, dlg.Height);

    // 添加禁用动画的扩展样式
    SetWindowLongPtr(dlg.Handle, GWL_EXSTYLE, 
      GetWindowLongPtr(dlg.Handle, GWL_EXSTYLE) or WS_EX_NOANIMATION);
    
    // 刷新窗口以应用样式变更
    SetWindowPos(dlg.Handle, 0, 0, 0, 0, 0, 
      SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_FRAMECHANGED);

    dlg.ShowModal;
  finally
    dlg.Free;
  end;
end;

方法2：将对话框设为弹出式子窗口 #

通过设置对话框的PopupParent和PopupMode，让系统将其识别为类似菜单的弹出控件，自动禁用动画：

procedure TMainForm.SpeedButton1Click(Sender: TObject);
var
  dlg: TMyDialog;
  ScreenPos: TPoint;
begin
  dlg := TMyDialog.Create(Self);
  try
    dlg.PopupParent := Self;
    dlg.PopupMode := pmExplicit;

    // 设置下拉位置
    ScreenPos := SpeedButton1.ClientToScreen(Point(0, SpeedButton1.Height));
    dlg.SetBounds(ScreenPos.X, ScreenPos.Y, dlg.Width, dlg.Height);

    dlg.ShowModal;
  finally
    dlg.Free;
  end;
end;

这种方式更贴合菜单下拉的行为模式，系统会自动适配窗口层级和动画逻辑。

方法3：使用AnimateWindow强制关闭动画 #

直接调用Windows API的AnimateWindow函数，指定动画时长为0，强制无动画显示：

procedure TMainForm.SpeedButton1Click(Sender: TObject);
var
  dlg: TMyDialog;
  ScreenPos: TPoint;
begin
  dlg := TMyDialog.Create(nil);
  try
    ScreenPos := SpeedButton1.ClientToScreen(Point(0, SpeedButton1.Height));
    dlg.SetBounds(ScreenPos.X, ScreenPos.Y, dlg.Width, dlg.Height);

    // 强制无动画显示
    AnimateWindow(dlg.Handle, 0, AW_ACTIVATE);
    dlg.ShowModal;
  finally
    dlg.Free;
  end;
end;

注意：如果对话框的BorderStyle设置为bsDialog，可能需要配合修改样式才能完全禁用动画，推荐优先使用方法1或方法2。

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