delphi - 如何知道我的控件何时改变大小？

Question

我正在构建一个自定义控件，我需要它能够在调整大小时做出响应。我需要旧尺寸和新尺寸才能进行一些计算。

不幸的是，SetWidth 和 SetHeight 方法是 TControl 私有(private)的，不 protected ，因此我无法覆盖它们。有没有其他方法可以知道我的控件即将调整大小，并且旧尺寸和新尺寸都可用？

Answer 1

重写 SetBounds 公共(public)方法。它传入新的尺寸，您可以使用 Width 和 Height 属性来获取当前的宽度/高度。

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;