WinAPI: MoveWindow - 改变窗口的位置与大小

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

 
 
 
 
 

 

 
  

//效果图: