把消息送到默认窗口函数里，并非一点用都没有，可能会产生新的消息（以WM_WINDOWPOSCHANGED为例）

我在追踪执行：

procedure TForm1.Button1Click(Sender: TObject);
begin
  panel1.Left:=panel1.Left-;
end;

并且屏蔽TWinControl.WMWindowPosChanged里的UpdateBounds函数后

procedure TWinControl.WMWindowPosChanged(var Message: TWMWindowPosChanged);
var
  Framed, Moved, Sized: Boolean;
begin
  Framed := FCtl3D and (csFramed in ControlStyle) and (Parent <> nil) and (Message.WindowPos^.flags and SWP_NOREDRAW = );
  Moved := (Message.WindowPos^.flags and SWP_NOMOVE = ) and IsWindowVisible(FHandle); // API
  Sized := (Message.WindowPos^.flags and SWP_NOSIZE = ) and IsWindowVisible(FHandle);
  if Framed and (Moved or Sized) then InvalidateFrame;
  // if not (csDestroyingHandle in ControlState) then UpdateBounds; // 屏蔽这句
  inherited; 

  if Framed and ((Moved or Sized) or (Message.WindowPos^.flags and (SWP_SHOWWINDOW or SWP_HIDEWINDOW) <> )) then
    InvalidateFrame; // 类函数，简单调用API
end;

继续追踪WM_WINDOWPOSCHANGED过程中，意外发现它一旦执行了：

procedure TWinControl.DefaultHandler(var Message);
begin
   Result := CallWindowProc(FDefWndProc, FHandle, Msg, WParam, LParam);
end;

就会更改相应的panel1.left属性值。原因是，默认窗口函数会发送WM_SIZE和WM_MOVE消息，因此panel1.left的值仍得以改变。

具体参考MSDN: https://msdn.microsoft.com/fr-fr/library/windows/desktop/ms632652(v=vs.85).aspx