如何知道控件何时更改大小?

重写setbounds公共方法。它以新的大小传递,您可以使用宽度和高度属性来获取当前的宽度/高度。

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

另一种解决方案是使用tcontrol的onResize事件。这不一定在某些控件中发布,但如果不发布,您仍然可以在代码中附加处理程序。

MyControl.OnResize := MyResizeEvent;

虽然这只允许您获得新的大小,但是如果您将旧的大小保存在一组变量中,那么您可以做您希望做的事情。

function Myform.MyResizeEvent(Sender: TObject) ;
var

begin

  DoSomethingOnResize(OldHeight, OldWidth, (Sender as TControl).Height,(Sender as TControl).Width);
  OldHeight := (Sender as TControl).Height;
  OldWidth := (Sender as TControl).Width;

end;