Delphi 7中动态创建的TChromium无法随窗口缩放问题求助

我之前在Delphi 7里用TChromium做浏览器时也踩过这个坑——动态创建的Chromium控件死活不跟着窗口或TabSheet缩放，其他功能都正常，折腾了好一会儿才找到原因，其实就是布局属性没设置对。给你几个亲测有效的解决方案：

方案1：设置Align属性为alClient（最直接） #

动态创建的TChromium默认Align属性不是alClient，所以它只会保持初始化时的尺寸。你只需要在创建后加上一行代码，让它自动填充父容器的全部空间：

TChrom[MainPages.PageCount]:=TChromium.Create(self);
// 关键：让Chromium占满TabSheet的整个区域
TChrom[MainPages.PageCount].Align := alClient;
// 确保Parent正确关联到TabSheet
TChrom[MainPages.PageCount].Parent := TabSheet;
TChrom[MainPages.PageCount].CreateBrowser(TabSheet,'');

alClient属性会让组件自动跟随父容器（这里是TabSheet）的大小变化，窗口最大化/最小化时，TabSheet尺寸变了，Chromium也会跟着缩放。

方案2：手动处理父容器的Resize事件（兜底方案） #

如果设置Align后还是有异常，可能是CEF内部的布局同步问题，这时候可以手动监听父容器的OnResize事件，强制调整Chromium的尺寸：

首先给MainPages（你的PageControl）添加OnResize事件处理：

procedure TMainForm.MainPagesResize(Sender: TObject);
var
  I: Integer;
  CurrentTab: TTabSheet;
  CurrentChrom: TChromium;
begin
  // 遍历所有Tab页
  for I := 0 to MainPages.PageCount - 1 do
  begin
    CurrentTab := MainPages.Pages[I] as TTabSheet;
    CurrentChrom := TChrom[I]; // 假设你的数组索引和Tab页索引一一对应
    if Assigned(CurrentChrom) then
    begin
      // 强制设置Chromium的大小为TabSheet的客户区大小
      CurrentChrom.SetBounds(0, 0, CurrentTab.ClientWidth, CurrentTab.ClientHeight);
      // 触发重绘确保界面更新
      CurrentChrom.Repaint;
    end;
  end;
end;

记得在窗体初始化时把MainPages的OnResize事件绑定到这个方法，或者在创建TabSheet时动态关联。

方案3：规范设置Parent和CreateBrowser参数 #

有时候CreateBrowser的父窗口参数如果和实际Parent不一致，也会导致布局异常。可以先设置Chromium的Parent为TabSheet，再调用CreateBrowser时传nil（CEF会自动使用Parent的窗口句柄）：

TChrom[MainPages.PageCount]:=TChromium.Create(self);
TChrom[MainPages.PageCount].Parent := TabSheet;
TChrom[MainPages.PageCount].Align := alClient;
// 这里传nil，因为已经通过Parent指定了父窗口
TChrom[MainPages.PageCount].CreateBrowser(nil,'');

这种方式更符合CEF组件的使用规范，能避免一些隐性的布局问题。

另外要注意：动态创建的组件一定要正确设置Parent属性，否则它不会归属于TabSheet，自然不会跟着TabSheet的尺寸变化。

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