组件尺寸变更时如何自动调整变量？Resize方法设计时失效问题

我之前也踩过一模一样的坑——设计时拖组件改完尺寸，运行起来居然还是用默认大小绘制，重写的Resize方法完全没起作用。问题根源在于Delphi组件在设计时和运行时的事件触发逻辑有差异：

在运行时动态创建组件时，Resize确实会在尺寸变更后触发，但设计时调整组件尺寸时，IDE通常直接调用SetBounds方法来设置新的位置和大小，Resize方法可能不会被正确触发，导致你的变量没同步更新，运行时就沿用了默认值。

给你两个关键的解决步骤：

1. 重写SetBounds方法，替代单纯依赖Resize #

SetBounds是组件尺寸变更的底层入口，不管是设计时还是运行时，只要组件的位置或大小发生变化，它都会被调用。把变量更新的逻辑放到这里，就能确保每次尺寸变更都能同步更新：

procedure TYourCustomComponent.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  // 先调用父类的SetBounds，保证组件基础尺寸设置正常
  inherited SetBounds(ALeft, ATop, AWidth, AHeight);
  
  // 在这里更新你的变量，比如根据新的Width/Height计算需要的值
  FCalculatedWidthRatio := AWidth * 0.8;
  FHalfHeight := AHeight div 2;
  
  // 一定要调用Invalidate，触发组件重绘，让新变量生效
  Invalidate;
end;

2. 重写Loaded方法，处理DFM加载时的尺寸同步 #

还有一种场景：设计时调整完尺寸保存Form后，组件尺寸会存在DFM文件里。程序启动加载DFM时，SetBounds可能会被调用，但有时候因为组件初始化顺序问题，变量还是没更新。这时候需要在Loaded方法里补一次变量更新：

procedure TYourCustomComponent.Loaded;
begin
  inherited Loaded;
  
  // 调用统一的变量更新方法，避免代码重复
  UpdateVariablesFromCurrentSize;
  Invalidate;
end;

// 把变量更新逻辑抽成单独方法，方便在多个地方复用
procedure TYourCustomComponent.UpdateVariablesFromCurrentSize;
begin
  FCalculatedWidthRatio := Width * 0.8;
  FHalfHeight := Height div 2;
  // 其他需要根据尺寸调整的变量都放这里
end;

额外注意点 #

• 不要完全抛弃Resize：如果组件在运行时可能通过代码动态修改尺寸，Resize还是会触发的，可以在Resize里调用UpdateVariablesFromCurrentSize，保证逻辑统一。
• 永远记得调用inherited：不管是SetBounds还是Loaded，跳过父类方法会破坏组件正常生命周期，引发各种奇怪问题。
• Invalidate是关键：变量更新后必须触发重绘，否则组件还是会用旧变量值绘制。

这样修改后，不管是设计时拖组件改尺寸，还是运行时动态调整，你的变量都会及时更新，组件也能正确绘制了。

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