搞不懂,要想一想~
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;