Delphi TMS WEB Core：如何触发TWebForm的onResize事件修复UI？

针对你遇到的TWebLabel动态设置Caption后显示不全、仅调整页面尺寸才恢复正常的问题，有几种直接的解决办法：

• 直接调用TWebForm的OnResize事件
  如果已经给WebForm绑定了OnResize事件处理函数，设置完Caption后直接调用该事件即可：

  WebForm1.OnResize(WebForm1);
  

• 调用TWebLabel自身的尺寸调整方法
  比起触发整个Form的resize，更精准的方式是让标签自己重新计算尺寸，调用AdjustSize方法：

  WebLabel1.AdjustSize;
  

  这个方法会让标签根据新的Caption内容重新适配宽度，是最直接的控件级修复手段。

• 通过JS触发浏览器resize事件
  因为TMS Web Core基于浏览器运行，也可以用JS代码模拟窗口resize动作，触发框架的布局重算：

  asm
    window.dispatchEvent(new Event('resize'));
  end;
  

本质原因是动态更新Caption后，控件没有自动触发布局重绘逻辑，而页面resize时框架会统一遍历控件重新计算尺寸，以上方法都能强制触发这个重算过程。

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