单独改变坐标的代码如下，可不断左移：
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowPos(panel1.Handle, , panel1.Left-, panel1.Top, panel1.Width, panel1.Height, SWP_NOZORDER + SWP_NOACTIVATE);
end;
照理每次改变坐标，都会调用SetBounds，都会调用SetWindowPos函数，可是一旦我屏蔽UpdateBounds函数，控件从第二次开始，就没有效果了：
procedure TForm1.Button1Click(Sender: TObject);
begin
panel1.Left:=panel1.Left-;
end;
这是为什么呢？原因是，在使用API达到相应的目的之后，必须修改Delphi的属性值，以备下次使用。否则Delphi下次还是按照原来的left值再减去10，这样看上去就没有被移动。所以关键是UpdateBounds里的代码：
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 <> then
begin
ParentHandle := GetWindowLong(FHandle, GWL_HWNDPARENT); // API，fixme 还可以这样简单取得父控件句柄？就这一处
if ParentHandle <> 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;
的最后几句。这样就达到了修改值的目的。