使用SetWindowPos API函数移动窗口后，还需修改Delphi的属性值，以备下次使用，否则就会出问题（不是API不起作用，而是使用了错误的坐标值）

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowPos(panel1.Handle, 0, panel1.Left-10, panel1.Top, panel1.Width, panel1.Height, SWP_NOZORDER + SWP_NOACTIVATE);
end;

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

procedure TWinControl.UpdateBounds;
var
  ParentHandle: HWnd;
  Rect: TRect;
  WindowPlacement: TWindowPlacement;
begin
  GetWindowRect(FHandle, Rect); // API，取得客户区，注意第二个参数是指针，但Delphi里直接使用

  // important 如果具有子窗口风格，就要根据父控件在屏幕上的位置重新显示
  if GetWindowLong(FHandle, GWL_STYLE) and WS_CHILD <> 0 then
  begin
    ParentHandle := GetWindowLong(FHandle, GWL_HWNDPARENT); // API，fixme 还可以这样简单取得父控件句柄？就这一处
    if ParentHandle <> 0 then
    begin
      Windows.ScreenToClient(ParentHandle, Rect.TopLeft); // API
      Windows.ScreenToClient(ParentHandle, Rect.BottomRight);
    end;
  end;

  // important 使用API取得实际效果后，也要改变Delphi的属性值，否则属性值还是保持上一次的值，这样下一次看起来就无法移动了
  // 错误：显示完以后，根据windows内部信息更新Win控件的属性
  // important 如果这里exit，那么只有第一次的时候坐标可以移动，后面都无法移动了。说到底都是通过这里起作用的
  FLeft := Rect.Left;
  FTop := Rect.Top;
  FWidth := Rect.Right - Rect.Left;
  FHeight := Rect.Bottom - Rect.Top;
  // 更新坐标和长宽后，要重新铆接
  // fixme 难道不用对齐吗，别处好多地方也都是这样
  UpdateAnchorRules;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  WindowPlacement: TWindowPlacement; // Windows结构类型，包含最大化最小化窗口位置等6项内容
begin
  WindowPlacement.Length := SizeOf(WindowPlacement);
  GetWindowPlacement(Panel1.Handle, @WindowPlacement);  // API，取得结构体指针，包括7项内容
  // 更改窗口的位置信息
  WindowPlacement.rcNormalPosition := Panel1.BoundsRect;
  WindowPlacement.rcNormalPosition.Left := WindowPlacement.rcNormalPosition.Left - 10;
  WindowPlacement.rcNormalPosition.Right := WindowPlacement.rcNormalPosition.Right - 10;
  SetWindowPlacement(Panel1.Handle, @WindowPlacement);
end;