//声明:
MoveWindow(
hWnd: HWND; {窗口句柄}
X, Y: Integer; {位置}
nWidth, nHeight: Integer; {大小}
bRepaint: BOOL {是否重绘}
): BOOL;
//举例:
procedure TForm1.Button1Click(Sender: TObject);
begin
MoveWindow(Button1.Handle, 0, 0, ClientWidth, ClientHeight, True);
end;
//效果图:
![26153905_h1yf.png](http://static.oschina.net/uploads/img/201409/26153905_h1yf.png)