Delphi中TEdgeBrowser组件的等效缩放代码是什么？附旧TWebBrowser实现

针对你之前基于TWebBrowser的缩放实现，TEdgeBrowser提供了更简洁直接的方式来控制页面缩放，无需依赖OLE命令调用。以下是等效代码：

procedure ApplyZoom(ZoomValue: Integer);
begin
  // 确保Edge浏览器实例已完成初始化
  if EdgeBrowser1.IsBrowserInitialized then
  begin
    // ZoomFactor为浮点数：1.0对应100%缩放，0.5对应50%，2.0对应200%
    EdgeBrowser1.ZoomFactor := ZoomValue / 100.0;
  end;
end;

关键说明： #

• TEdgeBrowser的ZoomFactor是Double类型属性，直接映射缩放比例，取值范围一般在0.25（25%）到5.0（500%）之间（具体上限由Chromium内核决定）。
• 操作前检查IsBrowserInitialized可避免浏览器未加载完成时触发异常。
• 若需监听缩放比例的变更，可绑定OnZoomFactorChanged事件。

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