//声明: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;         //效果图: