搞不懂，要想一想～
procedure TWinControl.WMSize(var Message: TWMSize); begin UpdateBounds; // 类函数 inherited; Realign; // 类函数 if not (csLoading in ComponentState) then Resize; // 类函数，简单调用程序员事件 end; procedure TWinControl.WMMove(var Message: TWMMove); begin inherited; UpdateBounds; end;
原文：http://www.cnblogs.com/findumars/p/4772122.html